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This seige escribes nem to KAG remarkably mE Animation BEA BBC 
graphics, and is based on a clever technique used in a rotating cube program written 
by Roger Wilson and Laurence Hardwick of Acorn. 


The first part of the article introduces the concept of logical plotting using 
GCOL and VDU19. The technique is then used to produce an animation sequence; and 
finally a listing of the rotating cube program is given. Note that if you are using 
a 16K machine, you should change Line 100 in fig.3 and Line 120 in fig 5 to MODE 5. 
Even if you have trouble in completely following the theory, the programs are well 
worth a look, and the procedures employed can be adapted for other uses. 


LOGICAL AND PHYSICAL COLOURS 

A concept which is inherent in the use of GCOL and VDU19 is that of the 
difference between a physical colour on the screen (e.g. red, yellow) and a logical 
colour (ie. the number code which the computer uses internally and is willing to 
associate with a physical colour). If you look in the New User Guide (p223-on 
COLOUR) you will see that the maximum number of physical colours available in the 
graphics modes is sixteen, which includes 'flashing' combinations. Different 
internal logical colour codes are used for foreground and background colours 
enabling us to determine precisely what Will happen when a character (graphics or 
text) is printed. 


By way of example we will look at the options open to us when using screen mode 
5. In this mode we are only allowed 


a maximum of four different colours Foreground Background Physical Colour 
on the screen at the same time. If 128 black 

we don't do anything to change the 129 red 
'status quo' of this mode we will get | 130 yellow 

the options given in fig 1. Note that | 131 white | 
the values 0-3 and 128-13] are the fig. | logical colour values for mode 5. | 


internal logical colour values used 
by the computer. Now lets take a look at GCOL and VDUI9 to see how we can 
manipulate these facts to our advantage. 


GCOL AND VDU19 

The basis for this article lies in these two commands, so it is worth taking a 
good look at these. GCOL enables us to say how we want all future graphics to be 
plotted and which colour to use. It has two arguments and has the general form: 
GCOL P,C ; where P is the plotting method (in the range 8-4) 
which is to be used, and C is the — 
value of the logical colour to use  Plotting Method 

plot the colour 


for all future graphics work. , 

Clearly in mode 5 any of the values OR the colour with current screen value | 

given in fig. 1 (above) would be AND the colour with current screen value | 
EOR the colour with current screen value | 


valid. The parameter 'P' can be as| | 
given in fig 2, and the position of | invert the colour currently on the screen| 


Ee pldéting O GT OC SPE Å 
determined by the PLOT and TAB i, 
commands. This latest table produces at least three new operations which we need to 
know about, those of OR, AND, and EOR plotting. We will take each of these in turn 
and concern ourselves, for the sake of simplicity, with just foreground colours. 


P29: In this mode we will simply plot the colour specified by GCOL. If the command 
GCOLØ, 1 is used then the future foreground colour will be in red. If we use GCOLØ,2 
then it will be yellow. It does not matter what colour was present on the screen at 
Some position prior to another plot in the same position. The new colour will take 


Wim WN — (Q 'U 
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P=l:, Here it is the logical OR of the new colour and the previous colour which will 
be used in the plotting operation. Type in the following program: 

10 MODE 5: GCOL@,1 

20 PLOT 5, 300,300 

30 GCOL 1,2: DUMMY-INKEY (100) 

40 PLOT 5,0,0 

50 END | 
First of all you will see a red line -i.e. COLOUR 1- (because of the GCOL@,1 in line 
18), and then one second later you will get a white line, though one might at first 
sight expect a yellow line (ie. colour 2). Initially each point on the line was at 
logical colour 1 (RED). We then set the logical colour to 2 (YELLOW), but with OR 
plotting; and "1 OR 2" has the logic value 3, (you can verify this by typing "PRINT 
I OR 2" in Basic). This is why we get a white line (logical colour 3) instead of a 
yellow one. (If this logical binary operation is new to you then see the articles on 
LOGIC in BEEBUG vol. ] nos.5,6 (Sept & Oct)). 


Pz2: This will use the logical AND of the colours. If we change line 30 (above) to 
read: 30 GCOL2,2: DUMMY-INKEY (1609) 

we can see the effect of this. Colour 1 (RED) AND Colour 2 (YELLOW) gives Colour 0 
(BLACK) because "| AND 2" has the logic value zero, (again see BEEBUG nos. 5 and 6 
if this is unclear). Thus after one second is up the line disappears even though our 
specified foreground colour is yellow. 


pz3: Using EOR plotting (and therefore a value of GCOL3,2) we will get the same 
result as with P=] because "| EOR 2" has the logical value 3. (To test this type 
"PRINT ] EOR 2" in Basic). 


P-4: This ignores the current colour setting and merely inverts the colour 
presently set. The inverse (or logical NOT) of colour 1(RED) is colour 2, hence we 
get a yellow line. 


Now let's take a look at the VDUI9 command. This has the general form of: 
VDU19,L,A;0; 
where L is the logical colour we are referring to, and A is the code for the actual 
colour we wish to assign to it. Fig.l] shows the values set for screen mode 5 if we 
don't do anything to change it. Even though we are only allowed four different 
colours at any one time, we can, via the VDU19 command, say which of the full range 
of 16 physical colours we wish to use for each permitted logical colour. 
For example: 12 VDU19,1,4:0: will set colour 1 to BLUE 
14 VDUI9,3,13;0; will set colour 3 to flashing MAGENTA/GREEN. 

If you insert these two lines into your test program and reset GCOL in line 30 to 
GCOL0,2 you will see the effect of this. The interesting thing about the VDUI9 call 
to alter physical screen colours is that it does so instantly. We can take advantage 
of this in a number of ways. In particular we can draw a new image in physical 
colour black, and then make it suddenly appear all at once, just by using an 
appropriate call to VDU19. | | 


ANIMATION TECHNIQUES APPLIED 
As an example of how these two commands can be used effectively we will take a 
look at a couple of programs for producing animation, and compare their effects. 
Type in the program in fig. 3 using the line numbers given. The animation is done 
by merely drawing the boat in a colour and then drawing it again in black to erase 
it, and so on. If you run this program you will notice that the picture flickers 
furiously and does not look very nice at all. 


PROCSAIL is the procedure which effectively does all the work. If we change this 
procedure to use GCOL more effectively, we can get a smoother display. Change the 
PROCSAIL procedure and add in the PROCSHOW procedure as given in fig 4. To try and 
see what is happening consider the following. 


is new technique works is to draw the new ship each time in physical 
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colour black, so that the jerky drawing process is invisible. en suddenly make 
it appear by using the appropriate VDU19 call. You may have used the same idea when 
drawing a graphics screen for a game etc. - to prevent the user from seeing the 
drawing process. In broad terms the same technique applies here, but there is a 
complication - each of the new ships overlaps the previous one, so we actually use 
three different logical colours. Colour 1 is used for the first display and colour 2 
for the second. On the third display we want to erase the display drawn in colour 1 
but not the one in colour 2. This can be achieved by an EOR operation using the 
value we want to erase, ie. colour ]. Notice that this will give us (1 EOR 1) for 
the first display (ie. Ø = black) which is what we want. In the second display on 
the overlapped bits we get (3 EOR 1) which gives us colour 2, which is also what we 
want. Moreover the whole of the second display is now in colour 2. By 'showing' 
the relevant colour at each stage the shape can be made to move, hence our extra 
procedure PROCSHOW. 


**Note* To use two colours for two 'displays' we actually require three logical 
colours, hence we lose the ability to have so many different colours on the screen 
at the same time. So in using the technique we gain in appearance but lose a little 
in multi-colour capability. Obviously this poses far fewer problems in MODE 2 which 
can display up to 16 physical colours all at the same time. 


ROTATING CUBES 

We are most grateful to Roger Wilson and Laurence Hardwick of Acorn for 
permission to publish the program which appears as fig 5. This uses exactly the same 
technique to generate a rotating cube. It is the main loop in lines 360-510 which 
is doing the actual work, and notice how it too needs to access a PROCSHOW procedure 
in order to highlight only the logical colours that are pertinent at any one time. 
We will be looking further at 3-D graphics and rotation next month. Meanwhile you 
can type in the program and sit back and watch. In case you want to experiment, 
here is a list of the main procedures and variables: 


PROCEDURES (CUBE) 
D,DRAW Draws the 3-D shape. This uses GCOL to set appropriate logical operations 
in order to create and erase each view. 


MOVE Calculates the 2-D mapping coordinates for each new position, from the 
Stored 3-D coordinates. 
SHOW Enables given colours to be displayed, hence showing a particular view. 


VARIABLES (CUBE) 
TX,TY,TZ Linear transformations in the three planes. If they are all zero then 
the cube remains in the same position, though rotating. 
L,M,N,F Affect the displayed 'shape' of the cuboid. The values given 
display (would you believe) a cube. 
NN,TIME These enable a display to be given in the top left hand corner of 
the time (1/108 sec) for each move. Notice that this is about a second. 
COLOU$ Defines the colour of the rotating cuboid. | 
CX,CY,CZ These are the rotation factors in the three planes. If they were 
made to be all zero then the cuboid would not rotate. 


AA MORA CAR) 


Fig 3 "SHIP]" | 180 FOR X=Ø TO 1279 STEP 
= a eg ei 
100 MODE | 200 PROCDRAW(X, 105,7) 


T116 VDU19,3,6:0: EM 210 NEXT X 

120 GCOL@,3:PROCSEA A4 51 220 ENDPROC 

130  PROCSAIL 340 DEF PROCDRAW(X%,Y%,C%) 
140 VDU19,3,7;0; 350 PLOT 4,X%,Y% 

150 END 360 PLOT 4,X%+8Ø,Y% 

160 DEF PROCSAIL 08 370 PLOT 804C$,X2-80,Y2480 
178 GCOL 9,2 j 380 PLOT 4,X%+88,Y% 
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390 PLOT 4,X2488,Y3480 270 DATA 30,30,30,—30,30,30,-30,—30,30, 

404 PLOT 804C$ ,X$] 28,Y$ 30,-30. 30 

418 PLOT 4,X2,Y2-8 288 DATA 3Ø,-3Ø,-3Ø,3Ø,3Ø,-3Ø,-3Ø,3Ø,-3Ø, 

(297297 -—30,-30,— 30 

420 PLOT 4,X%+128,Y%-8 290 REM**SET UP PROCMOVE CONSTANTS 

430 PLOT 804C2$,X2420,Y2$—-48 306 F=4 

440 PLOT 4,X%+24,Y%-48 310 L=13Ø:M=1|4Ø:N=8Ø 

450 PLOT 4,X%+132,Y%-8 320 S-L#L4AM#M 

460 PLOT 804C2,X294108,Y2—48 339 R=SORS 

470  ENDPROC 340 R=R/2 

480 DEF PROCSEA 350 T-S4N*N:Q-SQRT*3 

490 FOR X=Ø TO 1279 STEP 4 mE o REM**MAIN LOOP 

00 YV=5Ø+5*SIN(X/1Ø Ø REPEAT 

SI PLOT 69,X,Y d 380 GCOL172 

520 NEXT X 39% PROCDRAW (8) 

530 ENDPROC 400 PROCSHOW (2) 
QUNDNRNRRMEMeMeMeReMeMexexesee esee 410 GCOL2,2 

Fig 4 Additions for "SHIP2" pa oe 
AAG GCOL I , I 

160 DEF PROCSAIL 458 PROCDRAW (1) 

170 VDU19,3,3;0; 460 PROCSHOW (1) 

198 GCOL | ,1 480 PROCDRAW (Ø) 

216 PROCSHOW (1) 500 UNTIL INKEY Ø<>-1 

220 GCOL1,2 510 END 

230 PROCDRAW (X--8 , 105, 5) | 520 REM**PROCEDURE DECLARATIONS 

240 PROCSHOW(2) 530 DEF PROCD(P%,N%,A%) 

250 GCOL3, 1 540 PLOTA%,B%(P%,Ø,N%) ,B% (P%, 1,N%) : ENDPROC 

260 PROCDRAW (X, 105, 5) 550 DEF PROCDRAW (NS) | 

270 GCOL1,1 560 PROCD(Ø,N%,4) 

280 PROCDRAW (X416, 105, 5) 579 FOR P%=1 TO 7:PROCD(P3,NS, 5) :NEXT 

296 PROCSHOW (1) 590 PROCD (2,N3, 5) 

300 GCOL3,2 600 PROCD(3,N%,4) 

310 PROCDRAW(X48,1605,5) 610 PROCD(Ø,N%,5) 

320 NEXT X 620 PROCD(5,N%,5) 

330 ENDPROC 630 PROCD(6,N%,4) 

540 DEF PROCSHOW (S3) 640 PROCD(1,N%,5) 

5509 P$-3:REM YELLOW 650 PROCD(7,N3, 4) 

560 VDU19,S$,P$2;0; 660 PROCD(4,N%,21) 

570 VDU19,3-5%,Ø:Ø; 670 ENDPROC 

580 ENDPROC | 680 DEF PROCMOVE (A3, B3) 
“RS RSE RR 0690 LOCAL P3:FOR P$-0 TO 7 

100 REM**INIT SCREEN AND VARIABLES 710 B(P%,1,B%)=B(P%, 1,A%) +CX*B(P%,2,A%) 

110 TIME a BR D Es) (PS 2,A8) -CX*B (P$,1 

120 MODE] -CY*b (Ps, 0, Bs) TZ 12,A%) (P3,1,B3) 


130 VDU29,640: 512: 
148 TX-0: TY-0: TZ-0 
150 CX=-.Ø25 


730 U=B(P%,Ø,B%) : V=B(P%,1,B%) :W=B(P%,2,B%) 
740 t=R* (T-U*L-V*M-W*N) 
750 B$(P$,0,B$)-T* (V*L-U*M) *F/t:B$ (P$,1, 


160 CY=Ø.Ø25 S Rid 
170 CZ-0.025 B£)-Q*(W*S -N* (U*L+V*M) ) /t 

189 REM**SET STORAGE ARRAYS 760 NEXT 

190 DIM B(7,2,1) 770 VDU30:PRINT TIME-NN:NN=TIME 
200 DIM B$(7,1,1) 780 ENDPROC 

216 REM**READ IN START POSITION 790 DEF PROCSHOW (N3) 

220 FOR P3=Ø TO 7 800 COLOUS=7 

230 FOR C%=Ø TO 2 810 VDU19,N$,COLOUS$; Ø; 

246 READ B(P%,C%,Ø) . 826 VDU19,3-N%,Ø;Ø; 

250 NEXT | 830 VDU19, 3, COLOU$ ; 0; 


NEXT |. 846 ENDPROC 
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)ME NOTES ON PROGR 


by Andrew Donald 


AM SAVING 


The programs on the Welcome tape are all copyable, using the SAVE command, with 
the single exception of PHOTO. Investigation of why this should be has led to some 
useful insights. 


What happens is this. When loaded the program shows a length of @9F4 bytes. If 


this program is now SAVEed the length will be shown to be Ø39C bytes, (0558 bytes are 
missing. 


The missing bytes are additional code required for the image plotting in the 


program. The BASIC itself does end at @39C, and the SAVE command will only operate 
on the BASIC portion. 


In order to save this program it is necessary to dump the BASIC and extra code 
as a unit and set the BASIC portion into operation when run. Looking at the memory 
map shows BASIC starts at ØEØØ and we need to save Ø9F4 bytes from here. This may be 
done with the command *SAVE "PHOTO" ØEØØ +Ø9F4 The default starting address for this 
code will be ØEØØ. That puts the total code onto the tape but how do we operate it? 


The User Guide says to load a block of machine code and run it we should use the 
*LOAD or “RUN commands. However, since the bottom of this code is BASIC and since 
the tape format for both types of dump is acceptable to the BASIC loader, the 
command  CHAIN"PHOTO" will load the entire block and then execute the bottom end 
BASIC. This is how the program operates on the Welcome tape. 


The consequence of this facility is that BASIC and machine code, and/or data may 
be mixed in a more compact form than is possible with the usual mnemonic assembler 
allowed for in the interpreter. USR routines may be written above the BASIC: but 


take care to set LOMEM to prevent corruption of machine code when BASIC variables 
are assigned. 


Also a machine code program may be kept in standard BASIC format by including a 
single BASIC line 1 CALL «address» and dumping with *SAVE from ØEØØ to the end of 
the code. 

[We suspect that the extra code that needs to be saved is not actually a machine 
code PROGRAM but DATA. However the same still applies for saving. Ed.] 


Qi QUI. 

What numbers between zero and 999 have the special property that they are the sum 
of the cubes of their digits? 

For example 234 is NOT a solution because 2 cubed + 3 cubed + 4 cubed does not 
equal 234. | 

The object of the quiz is to produce the fastest BASIC program to achieve this 
(checking all the way from zero to 999). 


Please do not send in your results, we will publish our program and best times 
next month. | 


SYSTEM CALLS | i 
Did you know that all commands preceded by '*' (eg. system calls such as 


*FX, “KEY, “CAT etc.) can be in lower case? Andrew Crawhurst. Note also the 
abbreviation "*." for "*CAT", - 


Å 
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Here at last are the promised machine code screen dumps for the Seikosha and 
Epson printers. They are many times faster than the Basic dumps publ ished earlier. 


Remember 


to take great care in entering the code, because machine code is much much 


harder to debug than Basic. Note that the Seikosha dump will not, as far as we know, 


work on a Seikosha 259. 


SEIKOSHA SCREEN DUMP (GP80A and GP100A) 


by Terry Bromilow 


The program to be described is a machine code 
dump for the Seikosha GP80A and GPIØØA which will 
print in any graphics mode of the BBC machine. The 
program is most welcome as it enables you to print 
any horizontal strip of the screen, and takes only 
about 2.5 minutes to print a full screen. An 
additional feature is that if the screen to be drawn 
consists of several colours, it is possible to 
specify that only items of a certain colour should 
be printed. (Obviously the printer will print 
everything the same colour). When using mode Ø, with 


its 649 dots horizontally, a compromise has had to 
be reached, as the Seikosha will print only 489. The 
solution adopted is to print every other dot. 


au m 
SN 


AM 


at 
e 


ABOUT THE PROGRAM 
The program consists mainly of data statements, 
which are converted into machine code and cunningly 


Stored in line 29489. That 
consists, as it is typed 
therefore essential that this line is typed in 
carefully as listed. Do not type in too few X S, 
there should be 168, although extras are okay. 


is why line 29489 
in, of only X s. It is 


Included in the program is a demonstration print 
of the exponential decay of a sine wave. It is by 
running this demo program that the machine code is 
generated, so do copy all of the listing, not just 
part of it. Once the code has been generated, the 
rest of the program can be deleted, leaving a very 
small and efficient machine code screen dump, which 
is activated as a procedure. 


Storing the code in line 29480 makes it very easy 
to append to other programs, but results in 
restrictions onthe 6502 instruction codes used. The 
codes Øl and 06 could not appear in it and there 
could be no internal absolute addresses, to enable 
it to work from any location. Also the appending 
process shown below must be used, since *SPOOL will 
not work with this program. The advantages in 
implementing the machine code this way are that no 
dedicated RAM is used, 


and a fully relocatable the progr 


program results which may be further edited after 
the appending process. The procedure uses zero page 
locations s84 and &8F but these are saved and 
restored by lines 29129 and 29460 which may be 


omitted if not required. 


TO SET UP THE PROGRAM 
The following needs only to be performed the 
first time that the program is used. 


1) Type in the program as listed with great 
attention to the data statements, and save a 
listing of the full program to tape or disc. 


2) Ensure that your printer is connected to the 
computer. 


3) Now run the program. It should immediately 
prompt you for a mode. Select any mode (0,1,2,4 
or 5) and enter the apropriate number followed 
by «return». 


4) The demonstration display should now 
commence. An exponential decay graph will be 
drawn on the screen, and then on the printer. 


5) When the printer has finished, delete the 
following lines from the program; 
Delete lines 29000 to 29999 inclusive 
Delete lines 29130 to 29419 inclusive 


6) Now save the resultant machine code, which is 
stored in the procedure called PROCGPR. So use 
SAVE "GPR" (not *SAVE). 


HOW TO USE THE NEW PROGRAM 

The screen dump is now in the form of a 
procedure, so to activate it we need to simply call 
it from the program that has produced the screen 
that is to be printed. This is done as follows; 


1) Load in the program that will create the 
screen to be printed. This is accomplished in 
the normal way, using LOAD" progname"” , 


2) Check that all the line numbers of this 
program are below 29900. If they are not just 
issue the RENUMBER keyword. 


3) Now type in PRINT ^ TOP-2 «return». 

This will print a three or four character number 
on the screen. I will for the moment call this 
number XXXX. 


Printout from RACER (Issue 7) 


3 


4) Now reload the procedure created earlier ur 


using the following; ES 
*LOAD"GPR" XXXX «return» y; 
1, 


t 
where XXXX is the above mentioned number. JE 
B Pa na 
5) Now type END «return» ps 
HOW TO CALL PROOGPR BLA 


If you now list the program, you will find that 
PROOGPR is located at the end of your original 
program, ready for use. It is ok to add new lines to 
r alter it in the normal way, without 
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fear of damaging the machine code. It is totally | 


relocatable. All that remains is to call  PROCGPR 
from your program at whatever stage you want the 
screen image to be dumped to the printer. 


It is possible that you may wish to decide while 
your program is actually running, at what stage you 
want the screen printed. This is very simple and 
below is listed one way of achieving this. 

Insert at an early stage in your program; 

Say line 5 5 ON ERROR GOTO 28990 

And then also 28900 PROCGPR(1823,0,15) : END 
Using these two lines, you could allow the screen to 
develop and then hit escape at an appropriate stage, 
whereupon the screen would immediately be printed. 
You can now save a copy of your program, including 
the PROCGPR within it. This may be done in the 
normal way. 


SCORE 35 SERVES LEFT 1 


Printout from BREAKOUT (issue 8) 


PARAMETERS OF PROCGPR 
The procedure must be called with 3 parameters. 


These are; 


1. The upper Y coordinate of the strip to be 
printed, 

2. The lower Y coordinate of the strip to be 
printed, 

3. The colours to be printed. 


The first two parameters are self explanatory, 
being the upper and lower limits of the strip to be 
printed. The coordinates must be given from the 
GRAPHICS origin, hence to print the whole screen the 
parameters would be 1023 and @ respectively, and to 
print a. narrow strip at the bottom of the screen 
would be 308 and Ø. (see New User Guide for graphics 
details). 


The third parameter determines which of the colours 
are to be printed. This number must be between 1 and 
15. It will be ANDed with the logical colour of each 
point, and that point will only be printed if the 
result is non zero. To understand this very useful 
function, you must have an understanding of how AND 
is used as a bit operator. See New User Guide page 
205 and previous BEEBUG articles. Also see NUG page 
223 for details of logical colours. As an example 
consider a screen containing ALL of the following 
colours; 


RED Logical colour 1 
GREEN Logical colour 2 
YELLOW Logical colour 3 
BLUE Logical colour 4 


Using a parameter 3 of 1 would draw only Red and 
Yellow points. 
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Using a parameter 3 of 2 would draw only Green and — 
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Yellow points. 
Using a parameter 3 of 3 would draw only Red, Green 
and Yellow points. 

Using a parameter 3 of 4 would draw only Blue 
points. 

The most normal requirement of this third parameter 
will be to print all points on the screen, in this 
case use a value of 15. So to print all points on 
the whole screen use PROCGPR(1Ø23,Ø,15). 


29000 CLS:INPUT'''"MODE (Ø,1,2,4,5) ",M 
29010 MODE M: IF M=Ø M=2 ELSE M=4 
290280 VDU29,0;896; 
29030 FOR X=Ø TO 1276 STEP M 
29040 S-SIN(X/290) *128*EXP (-X/300) 
29050 DRAWX,S 
29060 NEXT 
29076 PRINTTAB(3,2)"EXPONENTIAL DECAY” 
29880 PROCGPR(1Ø23,768,15) 
29090 PRINT TAB(0,10);:END 
29100 DEF PROCGPR (YTOP, YBOTTOM,COLR) 
29118 LOCAL A%,P%,Y% 
29120 LOCAL B$,C$,D$: B$-!&84: C$z1&88: D$-!&8C: 
REM Save z-page &84-&8F 
29130 REM Delete from here after first use 
29140 DATA 3,&15 
29150 DATA &84,&84,&85,&85,&A2,&0,&86,&88 
29160 DATA &86,&89,&86,&8E,&86,&8F,&E8,&DÜ 
29170 DATA &24,&8A,&20,&EE,&FF,&A5,&86,&20 
29180 DATA &EE,&FF,&A5,&88,&18,&69 ,&4,&85 
29198 DATA &88,&D0,&12,&E6,&89,&A5,&89,&CO 
29200 DATA &5,&DØ,&A,&8A,&2Ø,&EE, &FF ,&A9 
29210 DATA &D,&20,&EE,&FF,&60,&A5,&84,&85 
29220 DATÀ &8A,&A5,&85,&85,&8B,&86,&86,&A9 
29230 DATA &7,&85,&8D,&A9,&9,&A2,&88,&AQ0 
29240 DATA &0,&20,&Fl,&FF,&A5,&8C,&18,&30 
29250 DATA &7,&25,&87,&F0,&3,&EA, SEA, & 38 
29260 DATA &26,&86,&A5,&8A,&69,&4,&85,&8A 
29270 DATA &90,&2,&E6,&8B,&C6,&8D, &DØ,&DB 
29280 DATA &A2,&0,&E8,&A0,&80,&C4,&86,&FÜ 
29290 DATA &7,&A5,&8E,&F0,&9OC,&DO,&O9,&EA 
29300 DATA &E6,&8E,&DÜ,&9E,&E6,&8F,&DO ,&9A 
29319 DATA &8A,&20,&EE,&FF,&AO,&1C,&20,&EE 
29320 DATA &FF,&8A,&20,&EE,&FF,&A5,&8E,&20 
29330 DATA &EE,&FF,&8A,&20,& EE, &FF,&98,&20 
29340 DATA &EE,&FF,&A9,&0,&85,&8E,&C6,&8F 
29350 DATA &1Ø,&DE,&E6,&8F,&FØ,&CD, 6 
29360 RESTORE 
29370 FOR P%=TOP-176 TO TOP-8 
29380 READ A$ 
29399 ?P%=A% 
29400 NEXT P$ 
29418 REM Delete down to here *** 
29420 P$-TOP-174 
29439 VDU26,2,1,8,1,13: REM restore gphc orig, pr g 
phcs, newline 
29440 ?&87-COLR AND &F 
29459 FOR Y%=YTOP-24 TO YBOTTOM-24 STEP-28: A%=(Y%+2 
56)DIV256-1: CALL P$: NEXT 
29460 !&84=B%: !&88-C$: !&8C-D$: REM Restore  Z-page 
bytes used 
29470  VDU1,15,3: ENDPROC: REM prtr back to chars & 
off 
29489 MACHINE XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
KXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXX 
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXAX 
XXXXXXXXXXXXXXXXXXXXXXXXXX CODE 


by Timothy Powys-Lybbe 


The following program was designed after 
reviewing a number of screen dumps kindly submitted 
by members. It combines the best features of these 
(I hope). It will print all graphics screens (i.e. 
modes @§,1,2,4 and 5) taking two minutes in MODE Ø 
and eighty seconds in other modes. The program 
automatically senses what mode is in use. The 
listing also includes a simple demonstration which 
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EPSON MX80 III MACHINE CODE SCREEN DUMP 


ustrates 
within a Basic program. Alter line 29 for other 
modes. 


There are two versions of the program - one for 
cassette (tested on O.S 8.1 and 1.0), and one for 
disc (tested on O.S 1.8). In both cases the machine 
code routine is stored in an area of memory below 
PAGE, and therefore requires no adjustments of PAGE 
or HIMEM. The cassette version is stored in the 
user area at &D@@, and the disc version is stored at 
&AØØ. The user area at &DØØ is corrupted by disc 
use, so we have used the cassette buffer and RS423 
input buffer (at &AØØ) for storage. This means that 
the program cannot be used when RS423 input is in 
progress, but this is not likely to be a problem to 
most users. 


Both versions can be saved and loaded 
transparently in a similar manner to the technique 
described by Gwyneth Pettit in BEEBUG No.7; and the 
cassette version is just short enough so that the 
8.1 Operating System Bug Fix program can be included 
in the same area of memory, as long as the Bug Fix 
starts at the address hex &DD@. The program by 
Brian Carroll in BEEBUG No.7. works in the same way. 

Finally the dump should work with all operating 
systems and should also wrk across the Tube to a 
6502 second processor. 
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ENTERING THE PROGRAM Year 
Obviously entering an assembler program is 


difficult for those who are not familiar with 
assembler. The listing below uses the BBC Micro 
long variable name facility to make it easier to 
recognise any errors. Spaces are one problem; in 
the assembler program from lines 190040 to 10250 
spaces are only needed after the names that start 
with a full stop, "LineGap" for example. 


Note that for machines with a disc interface, 

alter line 190309 to: 

10030 P$ = &AØØ: [OPT PASS 
Do not RUN the program unless you have first listed 
it to your printer and saved it on tape (or disc for 
the lucky few). This will save hours of re-entering 
if you have made fatal errors. 

When you run the program, you should get a random 
picture drawn on the screen, and then this should be 
automatically copied onto the printer. 

Once a successful printout has been obtained, you 
can destroy the Basic program and assembler code 


(though it would be prudent to keep a Copy) and just 
use the assembler code stored at &DØØ or &AØØ. 


To save the machine code only, use the command 
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ow to use the assembler program from — 


*SAVE"ScreenDump" DØØ DDØ (cassette version) 
or *SAVE"ScreenDump" AØØ BØØ (disc version) 


To load the machine code back into memory at any 
time (transparently), use this command 
*LOAD"ScreenDump" (cassette or disc version) 


To print the screen from Basic after loading the 
machine code use the command CALL &DØØ (or CALL &AØØ 
for a disc system); see line 1050 for the listing. 
Remember though that on series one operating systems 
(ie 1.0, 1.2 etc) you must turn on the printer with 
a CTRL B (or VDU 2) before calling &DØØ (or &AØØ) , 
and turn off the printer at the end with a CTRL C 
(or VDU 3). Thus the command: 

VDU 2: CALL &DØØ (or &AØØ for discs) : VDU 3 

will be needed to print a screen. If you are 
using cassette and 9.1 operating system, you can 
save and load all of the function keys, the user 
characters, this screen dump program and Brian 
Carroll's bug fix. Execute: 

*SAVE"Utilities" BØØ E99 DDØ «ret» 

You can then load this back in, and run the screen 
dump with: 

*RUN"Utilities" «ret» 

Thanks to Andrew Burke for the idea of putting 
all graphics modes on one short program, to J.H. 
Williams for his neat demonstration designs, to K.E. 
Hussey for his idea of fitting the program into page 
D hex for cassette use, and to all those others who 
have written to us on this topic. 


19 PROCScreenDumpAssemble 
20 MODEØ 

30 PROCDraw 

40 END 


1000 DEF PROCDraw:REPEAT 

1019 CLS 

1020 FOR I=1| TO 16 

1038 PLOT 86,RND (1288) , RND (1Ø24) 

1040 NEXTI 

1650 VDU2:CALL ScreenDump:VDU3:REM Use CALL &ØDØØ ( 
&ØAØØ for disc) after assembler deleted 

1069 CLS 

1970 PRINTTAB(Ø,2) "Press SPACE to exit." 

1980 PRINTTAB(9,6) "Press any other key to repeat." 

1099 A-GET 

1199 UNTIL A=32 

1116 ENDPROC 

1129 : 
190000 DEF PROCScreenDumpAssemble 
19018 xpointlo=&7Ø:xpointhi=&71:ypointlo=&72:ypoint 
hi=&73:pixelvalue=&74:printerbyte=&75:bitcount=&76:m 
ode@=&77 :step=&78 : OSWRCH=&F FEE: OSWORD=&FFF : OSBYTE-& 
FFF4 
10020 FOR PASS=ØTO03 STEP3 
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&DØØ: [OPT PASS 
10840 .ScreenDump LDA#&FF:STAypointlo: LDA#&3:STAypoi 
nthi 
10050 LDA#®:STAmode@: LDA#4:STAstep: LDA# | 35: JSROSBYT 
E: TYA: BNELi neGap: INCmode@: LSRstep 
19060 .LineGap LDA#27:JSRPrinter : LDA#65:JSRPrinter:L 
DA#8:JSRPrinter 
16970 .NewLine LDA#@:STAxpointlo:STAxpointhi 
10080 LDA#27:JSRPrinter : LDAmode@ : BEQModeAbove@: LDA#7 
6: JSRPrinter : LDA#128:JSRPr inter : LDA#2:JSRPr inter :BNE 
NewCol umn 
10098 .ModeAboveg LDA#75:JSRPrinter: LDA#64: JSRPrinte 
r:LDA#1:JSRPrinter 
10108 .NewColumn LDA#8:STAbitcount 
10116 .ReadPixel LDX#xpointlo: LDY#@: LDA#9 : JSROSWORD 
19128 CLC:LDApixelvalue :BEQSetPr interByte : SEC 


“10146 LDAypointlo:SEC:SBC#4:STAypointlo:BCSCheckColu 


mnEnd: DECypointhi 

19158 .CheckColumnEnd DECbitcount : LDAbi tcount :BNERea 
dPixel 

10160 .Print LDAprinterbyte:JSRPrinter 

16199 .NextColumn CLC:LDAstep:ADCxpointlo:STAxpointl 
o:BCCCheckLineEnd:INCxpointhi 

16269 .CheckLineEnd LDAxpointhi :CMP#5:BEQEndLine 
16216 .ColumnTop LDA#32:CLC:ADCypointlo:STAypointlo: 
BCCNewColumn: INCypointhi :BCSNewCol umn 

19226 .EndLine LDA#1@:JSRPrinter 

10239 .CheckEnd LDAypointhi:BMIEnd:JMPNewLine 

10240 .End LDA#12:JSRPr inter :LDA#27:JSRPr inter : LDA#6 
4:JSRPr inter :RTS 

19259 .Printer PHA:LDA#1]:JSR&FFEE: PLA: JSR&FFEE:RTS 
10260 |NEXT PASS 


16139 .SetPrinterByte ROLprinterbyte 10270 ENDPROC BS] 
= z - | 
eS m 
ci 03 SPIROPLOT 
Ka ano ee R. terry 


This is a Fa Little program wich generates pictures similak to those 
produced by a 'Spirograph". You define the size of the 'disc' that you want to use 
and the position of a 'pen' within that disc (known as the 'locus' position). Many 
an hour can be spent playing with this program in ad ine to produce the magnus opus 


of computer generated spiroplots. 
Some examples for you to try 
in order to get the idea of things are: 
Disc Size Locus 


5) 1.4 
89 1.0 
202 0.5 
212 1.5 
298 1.5 


These examples should be enough to trigger your eiea on. Happy designing! 


1Ø REM* SPIROPLOT BY R. STERRY * 

20 ON ERROR OFF 

30 MODE7 

40 PRINT TAB(1Ø)"S PIROPLO 
T" TAB (10) STRINGS (17,"=") 

50 INPUTTAB(0,12) "DISC SIZE ( 
Ø TO 360) ",B 

60 IF B>36Ø OR B<Ø.Ø1 GOTO 5 

70 ON ERROR GOTO 20 

80 INPUTTAB(0,14) "LOCUS POSITION ( 


Ø TO 1.5) ",M 


96 IF M>1.5 OR M«0.01 GOTO 80 
100 MODE4:VDU29,639:511:5 

116 VDU19,1,0,0,0,0,19,0,7,0,0,0 
120 A=-36Ø:C=A+B:Q=Ø: REPEAT 

130 X-C*COSQ-M*B*COS (C*Q/B) 

146 Y-C*SINQ-M*B*SIN(C*Q/B) 

159 IF 0-0 MOVE X,Y ELSE DRAW X,Y 
160 Q-0-B/800:UNTIL FALSE 


*FX254 CALL 


M.E.Horton sent in this hint. 
computer into a 16k computer. 
Try: *FX 254,840 
Then press CONTROL and BREAK together. 


It provides a simple way to turn your 32k 


After this, you should get 'BBC Computer 


16k'. It provides an easy way of making sure that your programs will run on both 
models. ‘The call seems to work on a series ] operating systems and is reset by 


*FX254, &80. 


[Ed: It seems that any value between @ and 127 will have the same effect as using 


s46, and any value between 128 and 255 will do instead of &8Ø. 


could just use @ and 255]. 


For example you 
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USING FILES 
by Sheridan Williams 


Sheridan Williams begins a series of articles on the use of files on the BBC 
machine. It is hoped that this will be of interest to all those whose programs 
involve data handling, both on cassette and disc. The article begins at an 
introductory level. 


All programs that perform data processing functions require some form of file 
storage, otherwise we cannot continue to process data from one day to the next. 
There are TWO main reasons why files are used: 
lə To hold data over long periods. | 
2. To hold more data than can be held in the computer's main store. 


There are three ways in which files can be held and these are: 
1. In DATA statement.. 2. On cassette 3. On disc 


Choice number one (DATA statements) unfortunately does not rid us of the problem 
of limited memory space inside the computer. Choice number two (cassette) gets over 
that problem but introduces the problem of long and tedious reading and writing of 
the data to and from the file. Cassettes only read/write at about 106 characters 
per second, so to process a 25k file (not particularly large in realistic data 
processing terms) it would take 4 minutes. Also cassettes are severely limited 
because they have no capabilities for positioning the tape accurately anywhere in 
the file. 

Thus if you wanted to change one field in just one record on a 25k file, it would 
take 8 minutes to do - 4 minutes to read the whole file and 4 minutes to rewrite it. 
You would also need a 32k machine for the file to fit. 

Discs provide the best solution, however they are expensive compared to 
cassettes. There is no avoiding the fact that many data processing applications 
require the use of a disc, in this case the costs must be borne in mind. (See the 
December issue for a brief comparison of 5 disc drives). 


FILES, RECORDS, FIELDS 
Before we look at the statements in BASIC and some routines for file processing, 
we must understand some of the jargon. 


File - A collection of related records. An ordinary metal filing cabinet may 
contain several files, or just one file, or even none! Similarly a 
cassette or disc may hold several files. Examples of files would be: 
Payroll file, Library book file, Criminal file, Stock file, Customer 
accounts file. i 

Record - A set of information relating to an individual item in the file. A card 
index file contains individual cards, each card being a record. Examples 
are: Criminal record, Library book record, stock record. 

Field - A subdivision of a record. For example, a library book record would 
probably contain some (or all) of the following fields: Book Title, Author, 
Publisher, ISBN. 


For the purpose of demonstrating files we will work with the following file 
throughout this series of articles: 


N 


Filename: PEOPLE RECORD DESCRIPTION 
FIELD CONTENTS 
E Surname 
2 Title 
3 Sex (M or F) 
4 Date of Birth 
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ppose that we wish to write a program to find all the males in the file that is 
stored in DATA statements. The following program will do this: 


16 PRINT"List of all males in the file" 59 UNTIL surname$="*" 


20 REPEAT 60 DATA Bloggs,Mrs,F,240472 
30 READ surname$,title$,sex$,dob$ 70 DATA Jones, Mr, M,171066 
46 IF sex$="M" then PRINT title$;" 80 DATA Smith, Mr, M,020155 
"-surnamesS 99 DATA k, Kk, *, * 


It is rather tedious, and a severe limitation to hold a file in DATA statements. 
For example to add, delete, or amend a record held in DATA statements you need some 
knowledge of programming, or at least be familiar with the BBC machine because you 
are altering the program itself when you are changing the data statements. 


So we turn to cassette and disc files. Commands associated with files are: 
OPENIN, OPENOUT, PRINT#, INPUT#, BPUT#, BGET#, CLOSER, PTR#, EOF#. 


For the rest of this article, all programs given will work on a disc system or a 
cassette system. [Beware if you have O.S. 0.1 because you will have to run the "Bug 
Fix" program (given in July 1982 BEEBUG) to cure the cassette filing bug]. The term 
for the type of file that we will be using in this article is a SERIAL or in some 
cases a SEQUENTIAL file. 


A file must be opened before data can be written to it, and similarly it must be 
closed when you have finished. 


On a disc system several files may be in use at once, for example a sophisticated 
Payroll package may require all these files to be open at once:- 


Employee tax file 

Tax table reference file 
Employee name & address file 
Tax authority payments file 


For this reason, when a file is opened it is allocated a channel number. 


For example, you open a file for output (ie to be written to) as follows:- 
channel #OPENOUT" PEOPLE" C 
if you then PRINT channel you will find out what channel the computer has allocated 
when this file was opened (probably 17). You needn't ever know the channel number 
because you will always use a variable to represent it. Note that the same channel 
number isn't always associated with the same file, in another program you may find 
that the computer has allocated a different channel number. 


If you try this in immediate mode you will hear the cassette relay click on, or 
the disc drive start. It is writing the 'header' containing the file name to the 
cassette or disc. If you now type CLOSE#channel then the cassette/disc would switch 
off, and you will have created a file, albeit an empty one. This is analogous to a 
filing cabinet with a label saying 'Employee file' on the drawer, but with nothing 
inside. l 


To write data to a file is quite simple - you use the PRINT statement. (Make 
sure you have a cassette or disc in situ). Proceed as follows:- 

19 ch-OPENOUT" FRUIT" 28 PRINT#ch,"Apple" ,"Pear" ,"Orange" 30 CLOSE#ch 

If you want to prove that the data really has been put on the file then we must 
establish how to read the data back from the file. To do this you must open the 
file for input rather than output as we did before. We use the statement OPENIN. 
We are now going to input data from the file, but stop for a minute: how will we 
know when there is no more data on the file to read? The function EOF# is provided 


for just this purpose. EOF# returns either true (-1) or false (0) depending on 
whether the End-Of-File has been detected. 


So we can use OPENIN and then a REPEAT UNTIL EOF# loop to control our input from 
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This is done in the program below (lines 50-100). It reads back the 
written to the file in lines 10-30 above. (You can join both of these programs to 
make one before you run them). 


40 INPUT"Press 'return' when ready 70 INPUT#chan,fruits 
to read back file",Q$ 80 PRINT fruits 

50 chan-OPENIN" FRUIT" 90 UNTIL EOF#chan 

60 REPEAT 109 CLOSE#chan 


[If you are using cassette, rewind the cassette before you read back the file]. 

Once the file is open you can write (print) as many items of data as you want to 
the file, obviously at some point the cassette/disc will fill up so this is the 
upper limit to the size of the file. Files cannot realistically be extended across 


to different discs or cassettes. It is wrong to open and close a file between each 
write operation. 


Each time a file is open for writing, the data is written to the BEGINNING of the 
file, so that any data previously there is overwritten. For example this program 
will only read back 'Apple' even though you have written two fruits to the file. 
Lines 10-30 write "Tangerine" to the file, then lines 49-69 write "Apple" to the 
same file. However, lines 79-119 read (input) the data from the file, and yet you 
will see that there is only one fruit (Apple) on the file. 


10 c-OPENOUT" FRUIT" 65 

20 PRINT#c,"Tanger ine" 76 c=OPENIN" FRUIT" 

30 CLOSE#c 80 REPEAT 

35 99 INPUT#c,fruit$: PRINT fruits 
40 c=OPENOUT" FRUIT" 100 UNTIL EOF#c 

50 PRINT#c, "Apple" 118 CLOSE#c 

60 CLOSE#c 


If you think about it, you will probably say that this is ridiculous because you 
can never add anything to the end of the file, let alone modify one record in the 
middle of the file. Each time the file is opened for reading or writing the record 
pointer associated with that particular channel is set to the first record. There 
are theoretically three solutions: 

1. Load the whole file into memory, make the modifications, then write them all back 
to the file. This is only feasible with a small file that will fit into memory. 


2. Use two tape recorders, read one record at a time from the file on one recorder, 
if it doesn't need modifying then write it to the file on the second recorder, if 
it does need modifying then modify it before writing to the second recorder. 
Continue this process until the whole file is updated. However, the BBC micro 
doesn't readily support 2 cassette decks. 


3. AS in 2 above, but using two disc files, one for input and one for output. (Note 
that a disc can hold and process more than one file at once). 


SIDEWAYS SCROLLING 


The Beeb has a ready-made command to perform a sideways scroll: 
VDU23; 13,A; Ø; Ø; Ø; where A represents the new position on the screen. See review of 
Creative Graphics in this issue for further details but try: 


16 FORA-1TO208 — 30 VDU23;13,A; 0; 0; 0; 

20 TIME=Ø:REPEAT UNTIL TIME=190 40 NEXT 
For the reverse direction, alter line 19 to: FOR A-200 TO ] STEP -] xl 
BEEBUG MAG February 1983 Volume-1  Issue-9 


15 


BOOK REVIEWS 


Creative Graphics on the BBC Microcomputer 
Acornsoft 119 pages 
By John Cownie price £7.59 


Reviewer David Graham 


Order from  Acornsoft Ltd., Vector Marketing, 
Denington Industrial Estate, Wellingborough, 
Northants NN8 2RL 


There have been a number of rather mediocre books 
published about the BBC micro. This one stands head 
and shoulders above the crowd, and reinforces 
Acornsoft's reputation for excellence. 


Its relatively small number of pages are packed 
with a wealth of ideas on the use of graphics on the 
BBC micro. The book is logically laid out with the 
following chapter headings: 


1. Graphics Commands 

2. Functions and Symmetry 
3. The Third Dimension 

4, Animation 

5, Recursion 

6. Pictures 


It takes the reader who has a grounding in BASIC 
from an introduction to the graphics commands on the 
BBC machine, right through to the generation of a 
number of animated sequences which make use of the 
techniques developed during the course of the book. 


The whole is skilfully managed, and the book 
contains fully documented listings of 36 
illustrative programs, many of which produce very 
nice visual displays of their own, and most of which 
will run with slight modifications on a model A. 
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Key to star ratings: 
***** Highly recommended. 
*** A useful book. 
* Lowest rating. 


Moreover full use has been made of the advanced 
features of the BBC micro, including procedures, 
which play an important part in the structuring of 
the final animation sequences. 


The one area of screen graphics that is excluded 
from the book is the user defined characters. The 
book concentrates on the kind of graphics that can 
be produced using the PLOT command. This 
intentionally omitted area might well provide the 
material for a sequal: but in the meantime 
Acornsoft are not giving away ALL the secrets of 
games such as Planetoid ! 


There is an accompanying cassette (£10.90 
containing the 36 programs, but since most 
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@ REM Windy field 
10 REM Copyright (C) Acornsoft 1982 
20 MODE] 
30 VDU23;18,32;0;0;0; 
40 VDU19,0,4;0;19,2,2;0; 
50 WIND$-0 
60 FORY%=86Ø TO 709 STEP -40 
70 PROCCLOUD(209--RND (870) , Y%, I ØØ+RND (100) , 8Ø+RND 
(28) , TRUE, 3,8) 
8Ø NEXT 
90 REPEAT 
100 WIND$-WINDS$-] 
118 VDU23;13,WIND%;Ø;Ø;Ø: 
120 A-INKEY (12) 
130 UNTIL WIND$-0 
149 PROCGROUND (16) 
150 VDU28,0,9,39,0 
160 COLOUR 28 
176 A=INKEY (309) 
180 PROCDOWN (10,80) 
198 VDU28,0,31,39,10 
200 PROCDOWN (22,9) 
216 VDUI9,2,3;0; 19,3,7;0; 
220 PROCSUN (6ØØ,7ØØ,1ØØØ, TRUE, 3) 
230 PROCSUN (6ØØ ,7ØØ,2ØØ, FALSE, 1) 
249 PROCCLOUD(4ØØ,6ØØ,3ØØ,2ØØ, FALSE, 2,3) 
250 A=INKEY (300) 
260 REPEATVDU19, RND (4) -1, RND(8) -1; 0; : ASINKEY (200) 
:UNTIL FALSE 
270 END 
288 DEFPROCDOWN (NS ,D$) 
299 FORI$-] TO N$ 
309 VDUT] 
319 A=INKEY (D$) 
320 NEXT 
330 ENDPROC 
349 DEF PROCGROUND (S£) 
358 VDU28,0,31,39,10 
368 COLOUR!29 
379 CTS 
. 380 


Title: 3Ø Hour Basic 
By: Clive Prigmore 
Reviewer: David Graham 


254 pages 
price £5.95 


This book bears the BBC owl logo, and is promoted 
in connection with the Computer Literacy Project. 
With the word "BBC" on both the spine and the front 
page, would-be purchasers are likely to conclude 
that this is a course for users of the BBC micro. 


In this they would in my view be mistaken. The 
programs in this book were written for 
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are very efficiently written - and therefore short - 
it is not too much trouble to enter them by hand. 
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We publish.below with permission from Acornsoft 
the listing of one of the final animated sequences, 
together with screen photos, to illustrate some of 
the techniques used, and the quality of the programs 
listed. This program - Windy Field - firstly 
generates a series of billowy clouds which float 
across a blue sky. A furrowed field is then rapidly 


generated. The clouds then sink below the horizon, 
and the horizon itself scrolls down. A new picture 
is then generated with a sun partly obscured by 
cloud. This picture then ripples through a series 
of colour sequences (which may be speeded up by 
pressing any key). As you will gather from the 
length of the program, this is all achieved very 
efficiently. 


One of the most interesting points to note is the 
use of the command VDU 23;13,X;0;0;0; to scroll the 
Screen sideways. X is simply the degree of scroll 
leftwards. To scroll right, set this high, then 
reduce it by stages. This beautifully simple 
undocumented command is typical of the kind of 
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390 GCOL2,2 

400 VDU29,64Ø:Ø; 

410 MOVE-640,7090:DRAW640 , 709 

420 FORX$--640 TO 640 STEP S$ 

430 MOVEX$,708:DRAWA*XZ,0 

440 NEXT 

458 ENDPROC 

460 DEFPROCCLOUD(X%,Y%,SX%, SY%, SCROL%,C1%,C2%) 
470 VDU29,X%;Y%; 

48Ø L%=6+RND(8) 

4998 MOVEØ,Ø:MOVESX%+SX%/L%,Ø 

500 X1%=SX%+SX%/1Ø:Y1%=Ø 

518 IF WIND%>12Ø THEN S%=-1 ELSE S%=] 

520 FORI=ØTO 6.3 STEP Ø.1 

530 IF SCROL$ THEN VDU23;13,WIND%,Ø;Ø;Ø; :WINDS=WI 


ND&+S% 


540 X%=SX%*COS (I) +SX%/LS*COS (I*L2) 
550 Y$-SY$*SIN(I)-4SY$/L$*SIN(I*L$) 
560 GCOLØ,C1% 

570 MOVE32,12:PLOT85,X$,YS 

589 MOVEX1%,Y1% 

590 GCOL0,C2$: DRAWX5 , Y$ 

600 X1%=X%:Y1%=Y% 

610 NEXT 

629 VDU29,Ø;Ø; 

630 ENDPROC 

640 DEF PROCSUN(X%,Y%,S%,RAYS%,C%) 
650 VDU29,X$;Y$; 

660 GCOLØ,C% 

678 MOVE4,12 

688 T$-TRUE 

690 FORA=Ø TO 6.3 STEP 9.1 

709 MOVES, Ø 

718 X%=S%*SIN (A) 

720 Y$-S$*COS(A) 

730 IF RAYS% AND T$ THEN MOVE X%,Y% ELSE PLOT 85, 


740 T$-NOT T$ 
750 NEXT 


S were not available when 
the course was designed; and this text book ignores 
all the innovatory features of BBC Basic. For these 
reasons BBC micro users would I believe generally do 
well to steer clear of it. 


Before backing up these allegations let me 
present the plus side of this book. It is quite 
well produced, gives you a lot of pages for your 
money, it has a spiral spine so that it will lie 
flat while keying in programs; and above 
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all it 
one that does not teach structured programming), and 


it has self assessment questions at the end of each 
unit. 


But let us see just what a BBC Micro user would 
miss if he followed the course. 

There is nothing on procedures. 

There are no REPEAT..UNTIL loops. 

There are no IF..THEN..ELSE statements. 

There is almost no use of long variable names. 

There is nothing on integer variables. 

There is nothing on sound or graphics. 

All modes but Mode 7 appear to be ignored. 

The TAB function has no Y dimension. 

There is nothing on error trapping. 

The RND function is not properly used. 

There is nothing on *FX calls, the function keys, 
or the use of TIME, PAGE, HIMEM etc. 


This is a quite unbelievable list of omissions, 
but the BBC micro user has more to contend with. 
The listed programs are of a general nature, and 
contain many additional notes with advice for the 
BBC micro owner. For example in the dice throwing 
program listed on p. 170 it says "BBC: 60 omit line 
". Line 60 is the RANDOMIZE command available on a 
number of extended Microsoft BASICs, but not on BBC 
Basic. Its function is to shuffle the random number 
generator called by the command RND. Deleting the 
line will remove the randomness of the results. BBC 


is a structured text (though unfortunately 


“owners should have been told to replace line 69 with 


60 A% = RND(-TIME), which has the same effect as 
RANDOMIZE. 


There are two points to be made here. Firstly 
the BBC owner should not have to follow a number of 
corrections in order to make a program run on his 
machine, and secondly the corrections are not always 
correct, and in some cases are left out altogether. 
For example the program on p. 174 will not run 
because the RANDOMIZE has been left in. 


If you are a relative beginner to BASIC, and are 
using a more primitive computer than the BBC 
micro, then this book could certainly be of use, 
though its lack of machine~specific treatment and 
absence of graphics will limit this use. But if you 
are using a BBC micro then you should not buy this 
book. I say this partly because of what the book 
lacks; and the list above makes very depressing 
reading; but perhaps even more so for a second 
reason: the relatively unstructured programming 
that this book fosters. 


If you were learning to fly a jumbo jet, you 
would get only relatively little use from a Gipsy 
Moth manual - and you might even learn some bad 
habits. This is presumably why the NEC and BBC are 
getting together to bring out a real jumbo jet 
version in the near future - we will keep you 
informed. 


Telas The BEC Micro Revealed 
By: Jeremy Ruston 
Reviewer: David Graham 


144 pages 
price £7.95 


This book bears the same form of title wording as 
the first rate book on the PET - "The PET Revealed" 
by Nick Hampshire - and the companion volume - "The 
Vic Revealed" by the same author. But Jeremy Ruston 
has not in my view produced the same calibre of 
magnum opus. 


In the first case the Ruston book carries no 
index OR contents page, so that it is difficult to 
find your way to its various sections without 
reading from start to finish, and even then 
subsequent reference will not be easy. 


In fact the book contains four sections 
Section One (p5): The 6845 CRTC 

Section Two (p36): Memory Locations 

Section Three (p102): Basic Program Storage 
Section Four (p109): Basic Variables Storage 


Section one looks, as its title suggests, at the 
video controller chip, and its registers, and shows 
a number of tricks that can be achieved by 
addressing them directly. 


Section two is by far the longest section of the 
book, and is the most problematic. Essentially it 
gives the functions of a whole series of locations 
in RAM that are used by the operating system to 
store SUGO: things as cursor Coorg nae or current 


palaka! and also buffer areas. Generally croak 
the BBC machines FX and OSBYTE calls make such 
details somewhat redundant for normal programming 
purposes, added to which, if you do PEEK the 
locations given by Ruston in a program of your own, 
then it will not work across the Tube. Having said 
that, there is a more serious problem. Ruston has 
done his detective work on a machine fitted with a 
9.1 operating system; and when I tested a sample of 
the locations specified, none of them worked with 
the series one (1.0) operating system that I was 
using. 


The largest section of the book is therefore 
unfortunately rendered out of date with the advent 
of the new operating system, and although a note at 
the start of the section makes this clear, there is 
no warning on the cover to alert the reader to this 
fact before he purchases the book. 


Section three usefully explains the way in which 
BASIC programs are stored in memory and contains a 
neat program for listing all of BASICs reserved 
words with their tokens, direct from the machines' 
look-up table. Section four discusses the storage of 
variables, and like sections one and three makes 
interesting reading; but even without the 0.5. 9.1 
problem the book can never be "destined to become 
the bible of the BBC user" as Personal Computing 


Today is reported to have claimed: the ground that 
the book covers is far too limited. The BBC micro 
is a very complex machine, and the Bible is a very 
LARGE book. 


Title: Basenbly tangua brogrannind kat the BBC 
Microcomputer 305 pages 


By: Ian Birnbaum price £8.95 
Reviewer: Colin Opie 


Published by Macmillan Press, this book helps 
enormously to fill a gap in readily available 
publications concerning different aspects of home 
computers. It is also a pleasure to see such a book 
printed and published in England, rather than yet 
another import from across the water, though one 


exploited 


would expect this as the book is concerned with the 
BBC computer. 


In essence I believe the author has done a first 
rate job. Many books exist on 6502 Assembly 
Language programming but there is a definite need to 


'apply low-level techniques to a particular machine. 


The operating system and general environment of 
different machines means that varying facilities are 
available to individual users. The author has 
and discussed well the art of 6502 
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programming on the BBC microcomputer. He has useful.” Despite the sometimes poor layout as 
resisted the temptation to spend too much space on mentioned above, the author has produced an 
detailed explanations of each machine instruction, extremely useful aid to anyone with a BBC 
and has supplied vast quantities of examples linked microcomputer wishing to learn or improve 
to adequate instruction descriptions. programming at assembly level. I would heartily 

recommend the book as a self teaching text and would 


The book is split into 19 chapters and 9 not hesitate to use it as a text book with students. 
appendices. All but one of the chapters relates to eS = 


programming, the remaining chapter (10) being 


devoted to some utility programs. Appendices cover Globe Book Services are offering a 
the 6502 instruction set, useful information about 10$ discount on this book to BEEBUG 
using the BBC computer, and a few odd discussions on members. See the. advert on page 59 of 
‘floating point representation’ and ‘indexed th 1 t 
indirect’ addressing. One exceptionally useful e Supplement. 


facet is the number of exercises supplied, with a 
full solution to each one given at the end of the 
book. 


aaa 


STOP PRESS 


In terms of layout I think it a pity that so many 
different type faces are used, and that their use is 2 PO 
not consistent throughout the book. The appendix on ; Last minute addition to FA 
the 65Ø2 instruction set is hand-written although discounts. The following shop stocks 
very readable. More spaces could have been used in computer books and will offer free 
the majority of program listings to make them more . Please 
readable. As it is there are often pages which have postage to BEEBUG members 
a listing squashed up on the left hand side with the telephone to check stocks.. 
rest of the page completely blank. Appleby, Myers & Clarke: 69 Market 


St., WATFORD. Tel:31969. 


Two tapes can accompany the book if desired and 
cost £9.00 each or £16.00 if bought together. —€— 
The book does not require the tapes to make it eere 


BEEBUG SOFTW 


ARE COMPETITION RESULTS 


We had twice as many entries for our second software competition as for our 
first; and were pleased to see some quite novel ideas amongst the entries. We have 
used the same judging criteria as for the last competition, and these were outlined 
in BEEBUG no 5. This time we have given a total of over £800 worth of prizes. 


PRIZE-WINNERS 


£200 M Tilley Debugger X £20 A Baker Tune 

X c20 D T Blyth Compacter 
E50 J Banks Space City £20 E D Carter — Ohms-Law 
£50 J Hardie Life 4K £20 N Mallinson Dive Bomber 
E50 R R Hull Beebmaze E £20 K Penton  T.Bug. 


£50 B J Kilby Five Dice £26 G Pomfret Subsearch 
E50 S Wilkinson Racer Mrs J E Sey Elements 


£15 Prizes: L P Baxter, G K Blackwell, B Carroll, M Case, S J Curtis, P Giblett,4 


£ CJ Hall, Lynton Jones-Ng, I Pomeroy, D Seaton, T Segall, K Stephenson, C Walton, 
; J Webb. 


£10 Prizes: M Harman, M Humphries, R Moseley, A Paskins, A Schild, Mrs. E Shone. 
Once again, we would like to thank all those who entered, and encourage entries 
for our next competition. Full details appear in this issue. 
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MEMORY SHIFT ROUTINE 


Object: To run large cassette programs from disc. 
Method: Load software from disc and then shift it 
down. 


Many existing cassette programs are too large to 
run on a disc machine. The reason for this is that a 
cassette machine is able to start storing BASIC 
programs from location &EØØ. In a disc system this 
start location is 41909, the area between these two 
locations being used for various disc operations - a 
loss of about 2.5K of program memory. 

When the need arises it would be useful to 
retrieve this space so that a large cassette program 
can then run on a disc system. To do this 
automatically we need to load the program from the 
discs into the normal program area at 81969, shift 
it down to &EØØ, set up a few variables and then run 
it. 


Given below is a one line program which will 
define one of the function keys to perform this 


AUTO START 


Object: To run a program automatically when shift 
and Break are pressed simultaneously. 
Method:Use *OPT 4,3, *BUILD and !BOOT. 


When using a BBC micro with discs, an option is 
available to automatically perform a *RUN or CHAIN 
or *EXEC function just by pressing the shift and 
break keys simultaneously. The following shows the 
steps necessary to define the user keys 
automatically in this way. 

The file of key definitions is created with the 
#BUILD utility. The special file MUST be named !BOOT 
(the reasons for which are of no consequence) . 
Execute the following: 


#BUILD !BOOT «return» 
| *KEYØ |ORUN|M «return» 
2 *KEY] INILLISTIMIO «return» 


o 


LI 


9 #KEY8 |O|BILLISTIMIOIC «return» 
19 #KEY9 DIMP3-1|MP.HIMEM-P3, TOP-PAGE|M «return» 
11 «press ESCAPE» 


Follow this with: “OPT 4,3 «return» 


TEXT FROM DISC 


Object: To read in text directly from disc during 
the running of a program. This is extremely useful 
for providing program instructions etc, without 
taking up valuable memory. 

Method: Use *TYPE (fsp) and “BUILD (fsp). 


THE COMMAND “TYPE (fsp) in a program will cause a 
text file with numbered lines to be sent directly to 
to the screen from disc. If the file contains more 
than a screenful of text, VDU14 (Control N) may be 
used for paging purposes. The text file can be 
easily generated using the “BUILD command. 

For example, suppose you wish to provide the 


'shift+run'. 


Type the program in and save it on disc 
with the name "SHIFT". Each time you need to set up 
the function key type: 
CHAIN "SHIFT" «return». 

Assuming the function key is set, to shift a program 
simply LOAD it into memory and press function key 9. 
This will automatically run the program. If you 
ESCAPE from the program you need only type RUN to 
restart it. Pressing BREAK will re-instate the disc 
system but the program will now be lost from memory. 


Program: 
19#KEY9FORI5-0TOTOP-PAGE STEP4: 1%! &EG0=1%!&1900: 
NEXT | MPAGE=& EØØ | MEND | MLOMEM=TOP | MRUN | M 


Note that the SPACE between the words PAGE and STEP 
is important. 

In ‘Practical Computing’ (FEB'83 p.71 -~ 
listing 2) there is a machine code program which you 
can append to the beginning of your programs to 
perform this shift operation - though we have not 
tested it). 

CNO/RP 


Line numbers are given automatically by the 
#BUILD command and are always in steps of one. At 
the end of each line press the RETURN key, and at 
the end press the ESCAPE key (just as the AUTO 
command is used in BASIC). 

The command at the end of the above sequence, 
*OPT 4,3 sets a marker on the current disc to 
indicate that the file should be brought into memory 
with the *EXEC command. This takes place when you 
hold down the shift key, press and release break, 
wait a second or two and release the shift key. If 
you release the shift key too soon then an ordinary 
BREAK will occur. Different values of n for *OPT 4,n 
will indicate: 

(nz) :NO ACTION; 

(n=1) :CHAIN THE FILE; 

(nz2):*RUN THE FILE. 

In all cases the file must be named !BOOT. 

In some respects you can achieve greater 
flexibility by using !BOOT to chain in another 
program. This simply involves making line one of 
1BOOT take the following form: CHAIN "D.name", where 
name is the name of the program that you want to 
auto-boot, and D is the directory that it is in. The 
program could be a keyset routine, as above, or it 
could be a disc menu, or just a favourite program. 


instructions for a game in this way. You could begin 
by typing *BUILD $.TEXT] 

then type in the text (the line numbers appear 
aut- omatically), and the text is automatically 
saved to disc under the title S.TEXTI. To escape 
from *BUILD, press ESCAPE. 


In the games program, the following can be used: 
89 PRINT" INSTRUCTIONS?" 
. 96 ON INSTR("YyNn", GETS) GOTO 
1909,100,130,130 ELSE 90 
198 VDU14 
119 “TYPE S.TEXT] 
126 VDU15 
136 REM #4 MAIN PROGRAM #4 


DEG 
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MERGE 


Object: 
Method: 


To merge 2 programs. 
Use *SPOOL and *EXEC. 


To add program A to program B, where A could be a 
procedure or second program. 

l. Load program A into the machine. 

2. Renumber program À so that the two sets of 
program lines do not clash. It is usual to make the 
line numbers of A greater than those of B. 

3. *SPOOL "name" «return» where name is any name 
to be applied to program A. 

4. LIST «return» 


Object: To avoid accidental program loss. 
Method: By keeping backup copies, and 
files on disc. ' 


"locking" 


To cover yourself against accidental program loss 
always keep a backup copy. These can 
conveniently saved in directory B. Thus use: 


SAVE "TESTI" 
and also 
SAVE "B.TESTI" 


To be doubly sure, you can use *ACCESS (fsp) L to 
"Lock" a file, and prevent it from accidental 
erasure. Also it is best to keep the backups on a 
different disc in case of disc failure. 


BEWARE OF *COMPACT 

When you use *COMPACT to compact a disc it will 
wipe out programs in memory. This creates an easy 
trap for the unwary. Suppose you have just finished 
developing a program, and decide to save it to disc. 
You try, but are informed that the disc is full. You 
are sure there is plenty of room on the disc so you 
*COMPACT. You may have been right, but you will not 
need the space now, since “COMPACT will have 


destroyed the program that you were about to save. 
DEG 


#FX18 CALL 


nOD 
D 


2 
OG 
oe 


DO 
oe 


Commands in BEEBUG 


5. *SPOOL «return» 


This process creates an ASCII file of program A on 


disc - i.e. it is not stored using tokens for Basic 
commands. To append this to program B, continue as 
follows: 

6. Load program B 

7. *EXEC "name" «return» 
This completes the operation. The “EXEC command 
reads in data from disc as if it came from the 
keyboard (hence the need to de-tokenise the Basic 
with *SPOOL). 
Note that where line numbers clash, those of A will 
obliterate those of B. 


9 0*9.9009 0909099999999 99 999090000999 €092929 999999 


MICROWARE DISCS 


We reported in the Disc System Review in our last 
issue that we had a drive fault on one of 
Microware's 100k drive units. We have since tested 
two similar units of theirs for a period of several 
weeks, without the recurrence of the fault. This 
suggests that the reported fault was not typical of 
the batch. At  BEEBUG we have purchased one of 
Microware's larger drives, and have had no problems 


: with this one either. 
: DEG 
aaa GG 
NO DOS MANUAL & NO UTILITIES DISC 
If you order a disc interface from Acorn, you 


will not receive an operating manual for the system. 
Acorn's policy has been to supply these, and a 
utilities disc (essential for formatting discs 
before use) only when you buy an Acorn drive. As we 
said in our last issue, it was not acceptable in our 
view to sell a product (i.e. a disc interface and 
operating system) and then refuse to provide a 
manual for its use. We have been in discussion with 
Acorn about this, and they have decided to sell the 
utilities disc and manual together at a price of 
around £30, obtainable from Vector Marketing. This is 
clearly pretty expensive, but it does provide one 
way out for those stranded with non-Acorn drives and 
no way to use them. 

In the next issue, if all goes well, we shall be 
publishing a disc formatting program together with 
details of the DFS (Disc Filing System) commands. 
(We have already given brief notes on these DES 

8 p.9 DEG ' 


Those of you lucky enough to be running an OS from 1.0 onwards may like to 
instruction. This will reset the user 
strings. 


be reminded of the 


(or informed!) 
Hoffman for this one 


DEFINING KEYS 


*FX18 
defined keys so that they no longer contain character 


Thanks to David 


Roger Wilson has noted that under certain circumstances a colon can not be 


used in place of IM when defining strings for keys through the use of 


#KEY. The 


important point is that colons can only replace the newline code when the resulting 


string might be interpreted as a sensible BASIC line. 


For example, OLD can be 


followed by the newline character and other text, but it may not be followed by a 
colon because it cannot be part of a BASIC program. 


LAST LINE 


Douglas Nunn has found a way of quickly determining the last line number in 


your program. Press the (CTRL) and (SHIFT) keys down and then hit the 


twice. On 
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(ESCAPE) key 


releasing the keys the message "Escape at line XXXX" will appear, where 
XXXX is the last line number used. This is especially handy after 


when appending programs to each other. The operation works on any OS. 


renumbering, or 
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-5 by Rob Pickering 


This month our column for the less experienced user covers procedures and their 
use in structured programs. 


WHAT IS A PROCEDURE ? 

Although it is perfectly feasible to write programs for the BBC Micro without any 
knowledge of procedures, there is no doubt that their correct usage leads to a far 
superior program. But beware: using procedures wrongly can be much worse than not 
using them at all! 


Think of a short part of a whole program, which carries out one minor task within 
the program. A few lines which, say, wait for the user to press a key before 
continuing. Assume that this minor task will be performed several times within the 
program, which is fairly typical. We could enter the same lines at each stage of the 
program where it is required, but this is tedious and takes up a lot of memory. What 
we do is make the relevant group of lines into a collective unit called a procedure. 
So you can think of a procedure as being a section of program which performs a given 
task as many times as required. It is similar in some ways to a subroutine (ie. 
using GOSUB...RETURN) but has certain advantages over the subroutine. 


Each procedure is given a name to distinguish it from other procedures. A 
procedure name is very similar to a variable name, but with two real differences: 

(a) they must always start with the keyword "PROC" in order to distinguish them 
from variable names, : | 

(b) they may not end with a "$" or "$" symbol. 


Choosing an appropriate name for a procedure is very important, not only to make 
the program understandable to other people, but also to help yourself to remember 
what all the procedures do. Since the purpose of our example procedure is to wait 
for the user to press a key, it seems sensible to call it "PROCwait". Note also that 
using lower case letters for the name helps to make it clearer to read. Here then is 
our example procedure in full: 


100 DEF PROCwait 120 key=GET 
118 *FX15,1 130 ENDPROC 


As you can see this is only a simple short example and as such it is not typical 
of the usual length of procedures. You will notice that line 100 starts with the 
letters "DEF", short for DEFINITION. It simply informs the computer that this is the 
start of a procedure that we are 'defining'. We only have to define a procedure once 
within a program, then to use it we simply state its unique name. For instance, here 
is an example of how we might use PROCwait within a program. Try it out and see what 
happens. Line 49 is particularly important here since it stops the computer trying 
to execute the procedure an extra time. 


18 PRINT"Press any key to continue..." 

20 PROCwait 

30 PRINT" Thankyou." 

46 END 

Notice that we do not need to know at what program line the procedure starts in 

order to use it. The BBC Basic holds a list of where the procedures are in the 
program, each location being stored when the procedure is defined. This means that 
when you use a procedure the Basic does not have to search all the way through the 
program in order to find the right one, hence obtaining fast operation. You should 
also realise that there is nothing declaring which instruction to go to at the end. 
of a procedure. BASIC takes care of this for us as soon as it reaches the ENDPROC 
Statement, passing execution back to the instruction following the one which called 
the procedure. | 


i: 
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PARAMETERS 

You will inevitably have heard of parameters, but may not know what they are, or 
what their purpose is. To explain how they are used in the context of procedures, we 
will consider a variation upon our previous example of a procedure, in which we 
would like to wait for a number of seconds before continuing, rather than waiting 
for the user to press a key. We will initially assume that the delay time is fixed 
at five seconds. This time the procedure is to cause a delay rather than waiting, so 
a sensible name would be "PROCdelay", as given below: 


166 DEF PROCdelay 130 REM Do nothing 
118 TIME=Ø 146 UNTIL TIME>1ØØ*5 
120 REPEAT 150 ENDPROC 


Now to cause a five second delay we need only to use the statement "PROCdelay". 
But uses for a fixed delay are comparatively few. It would be far more useful to 
have a procedure that would wait for a specified length of time, but be able to 
specify that time when we use the procedure. One way to do this is to replace the 
number 5 with a variable in line 149 of the definition, then we just store the 
required number of seconds in that variable before using the procedure. However, 
this is a very bad way to use a procedure (which will be explained in due course). 
What we should do is use a PARAMETER. Look at the procedure below: 


100 DEF PROCdelay(secs) 138 REM Do nothing 
110 TIME=Ø 140 UNTIL TIME>1ØØ*secs 
120 REPEAT 150 ENDPROC 
A parameter is simply a value which will be used by the procedure in order to 
carry out its task. We use the expression "parameter passing" for the way in which 
values are passed from the main program into the procedure. Here, the procedure 
- definition includes a Parameter, ( a variable named "secs") which will determine the 
number of seconds delay. The variable name "secs" in the definition applies to a 
variable which will exist in the locality of the procedure only. This concept of 
"LOCAL" and 'GLOBAL' variables requires careful consideration. 


LOCAL AND GLOBAL VARIABLES 

Something which exists inside a procedure definition is said to be "LOCAL" to the 
procedure, A reference to something outside the procedure is said to be a "GLOBAL" 
reference. When a variable name is given as a parameter in the procedure definition 
it does not then use a variable of the same name from the main program. What happens 
is that when we use the procedure we must give a parameter there too. The value 
given in the call to the procedure is automatically copied into the procedure's own 
local variable. An example will help to make this clear. 


16 secs-100 70 END | 
20 FOR s=] TO 4 100 DEF PROCdelay(secs) 
30  PRINT"Value of 1190 TIME: 
secs in main=";secs 115 PRINT "Value of secs in PROC=";secs 
40 PRINT"waiting ";s;" 120 REPEAT 
seconds." 13ø REM Do nothing 
50 PROCdelay(s) 140 UNTIL TIME>1ØØ*secs 
6@ NEXT s 15@ ENDPROC 


Enter and Run the complete program above which demonstrates that the variable 
called “secs" in the procedure is actually a different one from the variable "secs" 
in the main program. In the main program "secs" is simply set to the value 19@ and 
not used, but the fact that the variable of the same name within the procedure 
varies demonstrates that they are separate. Also notice that the value of "s" in the 
main program is copied (passed) into the procedure parameter "secs" automatically as 
the procedure is called with "PROCdelay(s)". 


It is not necessary to give a variable name in the procedure call, e.g. the 
command "PROCdelay(5)" would be perfectly acceptable, causing a five second delay. 
The early user guides stated that it was not possible to pass strings to procedures. 
This is not true, you may pass strings to procedures, but remember that the type of 
parameter MUST match the type of variable in the definition. A fact which limits the 
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usef ness of pr in. Basic is ar y . parameter passing 
techniques cannot be applied so as to pass a value back to the main program through 
the use of local variables, (see article in BEEBUG vol.] no.3, p26). | 


Local variables are not limited to those which we use as parameters, in fact we 
can make all the variables within a procedure local to itself. To achieve this we 
are provided with the BASIC command "LOCAL" which is followed by a list of all the 
local variables. The effect of doing this may not seem very important, but it is. 
Using all procedure variables as local means that you are not relying upon a 
specific variable existing within a program, and consequently the procedures become 
of common value to more than one program. It means that you can take a procedure 
from someone else and need only know what task it performs, its name, and what 
parameters it needs. You don't have to worry about it upsetting any variables in 
your own main program. The whole idea of having a collection or library of common 
procedures is very important, preventing unnecessary duplication of effort and 
allowing programs to be written much more quickly. Looking back through past issues 
of BEEBUG you should come across some useful procedures in our  "Procedure/Function 
library" column - BEEBUG vol.] no.5 p.28 carries an index. 


STRUCTURED PROGRAMS 

An important topic related to the use of procedures is that of structured 
programming. To explain what this is to newcomers who may not have encountered it 
before, we could say that it is a way of writing programs so we can actually see 
what they do. The first section of the program is called the MAIN section and 
contains generally very 'readable' code, calling upon each procedure to carry out 
its task when it is needed. The other main section of the program is merely a 
collection of all the procedure definitions. This 'standard' layout is exemplified 
by the following typical program. See if you can tell what it does without having 
any idea of the actual programming involved in the definition. 


PROCtidy up 
END es 
REM **** MAIN PROGRAM  **** REM *** DEFINE ALL PROCEDURES 
PROCtitles i DEF PROCXXXXXXXX 
PROCinitialise as 
REPEAT ao. 
PROCoption menu ENDPROC 
choice=FNoption DEF PROCXXXXXXXX 
IF choice-"C" PROCcreate file vds 
IF choice-"E" pROCedit file daa 
IF choice-"U" PROCupdate file ENDPROC 
UNTIL choice-"STOP" e DEF PROCXXXXXXXX 


Without much difficulty we can see what this program might do. This is shamefully 
un-typical of most programs we see in magazines, even BEEBUG. It is a reflection of 
the way in which few people ever sit down to write a program knowing what they want 
it to do. Just as they get started they suddenly think of something else it could do 
and squeeze it in where it shouldn't be. Then there are the other problems that they 
find something doesn't work and decide to remove it. Of course, they can't find all 
the little bits concerned, and confusing pieces are left where they shouldn't be. 
The GOTO statement is another 'nasty' leading to over complex programs. The ideal is 
to avoid GOTO statements as far as possible because they tend to foster bad program 
Structure, 


So if you are just starting out in programming, beware of the messy badly 


designed programs that your forerunners have written. None the least of which is 
mel! 
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In this column we will be bringing you updates and ideas for use with programs in 
the software library - this will include the word processor package Wordwise. 


DISC CONFIGURATIONS 

At present all  BEEBUGSOFT programs are cassette-based. To load them on a disc 
machine execute TAB/BREAK (or “TAPE) before loading. Note however that some 
programs (eg. "MAGIC EEL") will run out of memory unless you also type PAGE =&EØØ 
«return» before loading. This is necessary because machines with a disc interface 


fitted use an extra 3K of memory for the disc work-space, unless you reset PAGE in 
this way. 


MASTERFILE 

Instructions are given in the documentation of Masterfile to configure it for 
printer output. As the documentation says, the lines to look for (2009-2999) are in 
the FIRST program (ie. the header) - A number of members could not find them because 
they were looking in the main program. 


MOON LANDER 


Keyboard responses on MOONLANDER can be improved by employing the negative  INKEY 
function. To do this make the following alterations: 


450 IFINKEY(-82)GOTO619 470 IFINKEY(-103) YS-YS-0.04:FUEL-FUEL-] 
460 IFINKEY(-104) YS=YS+Ø.Ø4:FUEL=FUEL-] 480 IFINKEY(-68) K=K-Ø.Ø1:FUEL=FUEL-2 


WORDWISE IDEAS 1 - (More next month) 

When editing text, try using option 5 - Search and Replace (Selective). This 
will accept very long strings, and spaces are permitted, allowing whole phrases to 
be corrected. This is much quicker than working through the text with the cursor, 
and performing manual corrections. You can also press Return on an empty replace 
string, and then press Escape when Wordwise asks whether to replace it or not. This 
will leave the cursor at the point required, ready for manual editing. Note that 
for all operations under option 5, the search is only carried out from the current 
cursor position. This enables you to work your way through a text very efficiently Ss] 


ON ERROR BUG 


Thanks to Eddie Atherton for highlighting this one. There appears to be a small 
bug associated with the ON ERROR GOTO statement. Try typing in the following mini 
program exactly as listed, including the REM and comments. Then run it, hit escape 
to exit and relist it. The result is a corrupted program. 

This only happens when the REM and comments immediately follow the GOTO, and 
actually include a keyword. The computer has attempted to tokenise the keyword ON 
ERROR, even though it is only a comment. 


18 ON ERROR GOTO 4f: REM ON ERROR EXIT 30 PRINT"this routine" 


MORE JOYSTICKS 

We received a review model of another joystick from CompUtopia Ltd of Leighton 
Buzzard. They are 'T' shaped joysticks with a 2 dimensional paddle at the top and a 
small push-button on the stem. Their size and shape make them easy to hold and 
there is no doubt as to which way round you should use them. The push-button is in 
a convenient position for 'thumb' operation, though its small size could give rise 
to a slight 'imprint' on your thumb if you play for an hour or so. Value for money: 
they are as good as others in the same price bracket, and certainly as sturdy. 


Sold as a pair for £14.50 (inc. VAT) plus p & p, they are available from 
CompUtopia Ltd., 30 Lake St., Leighton Buzzard, Beds. LU7 8RX. Tel: (0525) 376600 
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an article on compacting Basic programs. The concept 
of being able to squeeze large programs into a small 
space seems to have stirred the imagination of a 
number of members. Perhaps a craze has been started 
which will be second only to space invader programs?. 


David Tall wrote to us a number of times with 
suggestions on how to improve the initial program. 
The problem with the published one was that because 
of the way in which destination line numbers are 
stored for GOTO, GOSUB, and RESTORE, the program 
will occasionally corrupt the program to be 
compacted, because it mistakes a destination line 
number code for a REM token; though this never 
happened in our tests. The problem with modifying 
the compacter was that it would become too long for 
the area of memory allocated to it. 


The 'super-compacter' presented here, written by 
David Tall, gets around all these problems. As it is 
in machine code it is fast, will fit below the 
cassette PAGE boundary, and work regardless of 
whether or not a disc system is fitted. It will also 
remove comments from assembler listings. All in all 
we think that you will like this update on what is 
an extremely useful utility. 


OPERATION 
The program copes with three independent choices. 
When used it offers the choices as follows: 


SPACES? To remove spaces 
REMS? To remove Basic REMS 
COMS? To remove Assembler comments. 


If you don't have any assembler code then it will 
not matter what reply you give to the third choice. 
Note also that whereas REM deletions will remove the 
whole REM, deleting assembler comments only affects 
a comment from the N symbol up to, but not 
including, the next separator (ie. a colon). 
Therefore: 

129 A=B:REM this is a remark:X=Y 
reduces to: 
120A-B 
but: 
200 [LDA&7ØNthis is a comment:STA&72] 
reduces to: 
200 ([LDA&79 : STAS 72] 


The program is located from &B5F to &CFF, using 
all of the user defined character space (though this 
is of no consequence since there is no need to RUN 
the program to be compacted), and part of the 
user-key buffer space. There is still room to define 
some keys however, and to make use of this fact the 
version listed in this article uses 7 of these keys 


COMPACTER 


In the DECEMBER ( BEEBUG vol.1,no.8) issue we had 


(Revisited 


Program by David Tall 
fü PAGED MODE 6 f4 “RUN 
få “LIST £5 RUN 
f2 COMPACT f16 OLD 


£3 | FREE SPACE 


SETTING UP PACK2 
The procedure for setting up this version is 
simpler than the previous one and is identical for 


disc or cassette use. 


1) Type in the Basic program and SAVE a copy for 
the sake of safety. A lot of the program is machine 
code so be very careful as you type it in. Anything 
after (and including) the 'V' character in a line of 
machine code, up to the end of that line, may be 
discarded as this is a comment only. It is vitally 
important that you do type it in correctly because 
if you do not the program will not run, and no 
sensible error messages will be displayed. 


2) RUN the program. 
3) Perform a *SAVE "PACK2" B@@ DØØ B73 


After the above operations you should have two 
things on tape. One is the assembler listing (or 
Source code), the second is the actual machine code 
which you will execute each time you want to perform 
à compaction. It is this second copy which will now 
be referred to as 'PACK2'. 


USING. PACK2 

There are two ways of running this version. First 
Load in the program to be compacted. Then you can 
perform a “LOAD "PACK2" in order to load the 
compacter into memory, and then use key. f2 to 
compact your program. Alternatively after loading 
the program to be compacted you could simply do a 
*RUN "PACK2" which will automatically load (from 
tape or disc) the machine code, and then run it from 
the execution address &B73. Incidentally with a disc 
system (and therefore O.S 1.0) you can in fact just 
type “PACK2 and the disc operating system will 
search for PACK2, load it and run it automatically, 
providing that it is in the designated library area 
and is not a reserved word (eg. we cannot use the 
title 'COMPACT'). In this way one can create a 
series of new commands that can even be used within 
a Basic program (though PACK2 should NOT be called 
in this way, for obvious reasons). 


Note that the vrogram automatically uses the 
current value of PAGE to find your program, in order 
to compact it. 


We are most grateful to David Tall for the work 
which he has done on this program. 


19 REM PACK2 (c) David Tall 1982 

20 REM version 1.20 

36 REM (inspired by Graham Taylor's PACK) 
49 REM Machine code version 

50 REM to reside in pages &BØØ, &CØØ 
60 REM RUN the program & then 

70 REM “SAVE "PACK2" BØØ DØØ B73 

80 REM The *SAVEd program may be “RUN 
9Ø REM to compact BASIC programs. 
166 REM Reply Y to SPACEs? to remove 
116 REM redundant spaces. «Necessary 
128 REM ones such as the one in 

130 REM IFA-B C=D will be kept.» 
148 REM Reply Y to REMS? to remove REMS. 


150 REM Reply Y to COMMENTs? to delete 
169 REM comments in assembler coding. 
178 *KEYØ . 

188 *KEY] 

199 *KEY2 

200 *KEY3 

219 *KEY4 

220 *KEY5 

230 #KEY6 

240 *KEY7 

250 #KEY8 

260 *KEY9 

270 *KEY1Ø 


280 *KEYØ|ML.OØI|MMO.6:V.19;4;Ø; |MIN 
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KEY1|M M| 

309 *KEY2|MCA. &B73|L|M 

318 *KEY3|MP.;H.-12A.&FFFF" free"|L|M 

320 *KEY4|M*RUN|M 

338 *KEYSRUN|M 

349 #KEY1GOLDIM 

350 $&B5F="SPACES?REMS?COMS?" 

369 FORN$-9TO!:P$-&B73 

370 [OPT3*N$:CLD: LDA$&5E: STA&70 : LDAS&B: STA&7] : LDX# 
2:LDY$0 

380 .a LDA(&7Ø) , Y: JSR&FFE3: INY : CMPi&3F : BNEaN print 
options 

390 .x JSR&FFEQ:AND4223:CMPf89:BEQy :CMP# 78 : BNEx\ in 
put response Y or N 

400 .y STA&74,X:JSR&FFE3:JSR&FFET7:DEX:BPLaNstore r 
esponse (& print it) 

416 INX:STX&70: STX872:STX87C:STX87D: STX&80 : LDX& 
18:STX&71:STX&73N Store line-start pointers & set 
ASSEMBLER flag = Ø 

420 .b CLC:LDA&72: ADC&7D: STA&72:BCCC:INC&73Nstart 
of next input line 

430 .c CLC:LDA&70:ADC&7C:STA&79 : BCCd : INC&71\start 
of next output line 

449 .d LDA#@: LDY#4 

450 .e STA&77,¥:DEY:BPLe\set all flags to zero (ex 
cept ASSEMBLER) 

460 .f INY:LDA(&7@) ,Y:STA(&72) ,Y:CPY#3:BEQg:CPY#1: 
BNEf :CMP#&FF:BNE£:RTS\transfer initial bytes & check 
if last line 

470 .g STA&7C:STA&7D: INY:STY&7E\store line lengths 
& output pointer 

486 .h STY&81:LDA(&7Ø) , Y:STA&7FN (START TRANSFER LO 
OP) store input pointer & current byte 

499 LDX&7B :BNEt :CMP#&8D:BNEt : LDX#4\check for co 
ded numbers (outside quotes) 

500 .G INC&81:JSRP:DEX:BPLG:BMIh\if coded, transfe 
r 

519 .t LDX&8Ø:BEQINIf outside ASSEMBLER, go to i 

520 LDX874:CPX#859 : BNEu : CMP#&5C :BNEu: STX&79\ (in 
ASSEMBLER) check N & set COMMENT flag accordingly 

536 .u CMP#58:BNEv:LDX#@:STX&79\ (in ASSEMBLER) see 
k colon and turn off COMMENT flag if found 

540 .v LDX&79:BNEj :CMP$493:BNEj : LDX$Ø:STX&8ØN (in AS 
SEMBLER) if outside COMMENT, seek ] and turn off AS 
R flag as appropriate; in all cases go to j 


SIMPLE MUSICAL KEYBOARD 
J C Fenton writes 


899 NEXT:END 


sd 
elete, move on 

560 CMP#822: BNEj: LDA& 7B : EOR#1 : STA&7B: LDAS7FN 100 
k for ", change QUOTE flag as necessary 

570 .j LDX&7B:BNEp\if inside QUOTES move on to tra 
nsfer 

580 CMP#91 : BNEK : LDX#1:STX&8@\ (outside QUOTES fr 
om here on) if [, set ASSEMBLER flag 

596 .k CMP#&DC:BEQn\DATA? - 

600 .m CMP#&P4:BNEo : LDX&75:CPX#&59: BNEn : LDX#1 : STX& 
77\REM? - if found & deletion required, set REM flag 

610 .n LDX#1:STX&7A\set DATA flag (for DATA or REM) 

628 .o LDA&77:ORA&79:BNEQ\if£f REM or COMMENT don't 
transfer 

630 LDA& 7A: ORA& 80 : BNEp: LDA& 7F :CMP#32:BNEp\iff DA 
TA or ASSEMBLER or not a SPACE, do transfer | 

64Ø LDX&76 :CPX#&59 :BNEp: LDX#0: STX&82: INY: LDA(&7 
Ø) ,Y:JSRsearch :BEQq: DEX: TXA: EOR#1:STA&82\if SPACES a 
re to be deleted, consider following byte 

650 LDY&7E: DEY: LDA(&72) ,Y:JsRsearch:BEQq:LDX#1: 
INY\look at previous byte transferred 

660 .A DEX: TXA:ORA&82:STA&82: DEY: LDA(&72) , Y:JSRsea 
rch: BNEA: LDX&82:CPX#9:BEQq\search earlier bytes 

670 .p LDY&81:JSRP:BNEz\transfer byte 

686 .q LDY&81:DEC&7D\don't transfer 

690 .z CPY&7C:BCCsNcheck for end of line and repea 
t as necessary 

700 LDA&79:BEQw:INC&7DNadjust for COMMENT (1 de 
letion too many!) 

718 w LDA&7D:CMP#5:BCCr\if line length less than 
5, abort current line transfer 

720 LDY#3:STA(&72) ,Y:JMPb\else transfer adjuste 
d line length & move to next line 

736 .r JMPc\ (abort) 

746 .s INY:JMPhN(next byte) 

750 .search LDX#0:CPY#5:BCCF :CMP#&3@:BCCF :CMP#& 3A: 
BCCN: CMP# 849 :BCCF : CMP#& 5B : BCCL: CMP#& SF : BCCF : CMP#& 7B: 
BCSF 

768 


— 


eL INX 

776 oN INX 

786 .F LDA#&20:CPX#@:RTS\consider byte, X = ] 
ber), = 2 (letter), = Ø (otherwise) 

790 .P LDA(&7Ø) , Y:LDY&7E:STA(&72) , Y: INC&7E: LDY&81: 
RTSN (transfer) :] 


(num 


in with a novel single line program which turns your 


# 


keyboard into a piano style keyboard. The program line supplied makes the QWERTY and 
ZXCVBN rows into the white keys, and the respective row above these into the black 
keys: 

CLS: REPEAT: GS=GETS : PRINTGS : SOUND& I 1 ,-15, 21+4* INSTR ("OQ2W3ER5T6Y 7UI 90ØPZSXDCFVBHNIM, L. 
;/" GS) ; 10: UNTIL G$z"]":SOUND&11,0,0, 0 


MORE CASSETTE LOAD PROBLEMS 

David Coups, like many other members has had problems with the Ferguson 
3T@7 recorder. He wrote to Ferguson who carried out the following modification to 
his recorder. | 

Disconnect C105  (.02.uF) 
with the instruments input circuit. 
lead going into the tape recorder. 

Many cassette loading problems are caused by tape oxide deposited on the 
heads. This problem will be particularly bad when poor quality tapes are used. The 
solution is simple; use good quality tapes and clean your heads and tape path 
regularly with a cassette head cleaning kit available from any Hi-Fi shop. Heading 
cleaning cassettes are NOT recommended. 

If you still have problems after this then this tip from Mr. C.C. Evans may 
be.what you need. He found that use of a 'Tape head demagnetiser' solved his 
loading problems. Those members who have reported their Welcome tape seeming to 


and adda 100k ohm 1/4 watt resistor in series 
This resistor is best added in the connecting 


'erase' after a few plays may find this to be the answer, 


Program tested on 
0:1 and 1:1 O.S. 
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gs Å OF SINGLE KEY MEMORY DISPLAY 
e 300 - by Alan Cocker 


sending in this well written program. This is a very 
small program which will quickly and clearly display in hex and character (ASCII) 
format any desired area of memory. The program is so small that Alan has strung it 
together as a single line program which can be entered within a function key. This 
makes it extremely handy as it can be loaded and stored totally independently of any 
other program. 


INSTRUCTIONS FOR USE 
` 1) Type the program in exactly as listed below, and run it. 


2) To save a copy of the program, which is now stored within the 
function key buffer, use *SAVE "DISPLAY" BOB C 


3) To reload the program at any time use *LOAD "DISPLAY", This 
will reload the program into the function key buffer again, 
without disturbing any other program you may have in the 
computer. . 


4) To run the program hit the red function key 8. The screen 
will clear and you will be prompted for a "Start" address. This 
may be entered in decimal, hex or as any valid expression. (To 
enter a hex number, precede it with &). Then hit return and a? 
will appear on the screen. This is the prompt for the number of 
bytes that you want displayed. Once again this may be decimal, 
hex or an expression. 


The display will then commence. Each line is preceded with the address in hex, of 
the first byte on the line. This is followed by 8 bytes displayed in hex, and then 
in ASCII. If the ASCII display is an unprintable character, it is displayed as a 
full stop. This default unprintable character may be altered by inserting the value 
of the required character in place of the "46" in the program. The program does not 
use paged mode, so if more than a full screenfull of display is created, use CTRL 
and SHIFT keys, held down together to allow scrolling through the display. If you 
require a printout of the display, simply activate the printer in the normal way 
before hitting function key 8. 


**NOTE** A tip for typing the program in. The character string in the last line is 
(R<32 OR R> etc ..ie the character after 32 is not zero. 


Program listing: 


1Ø*KEYS MO.7:1."START, >"SS,NS$:S=EV.S$:N=EV.NS:F.I=S TOS+N 8.8:0$-4:P.^I;:BS-" " 
2F.J=ØTO7 :R=I?J:P."R; :0$-3: R-R* (RC32 ORR>126) * (R-46) :BS=BS+CHRSR:N. :P.BS:N. :03=1Ø|M 


PROGRAM EXPLANATION 


Mo.7: Set Mode for display 

Input "Start, >" SS,NS Get Start Address and Number 
S=Eval (SS): | Evaluate Start (in case hex) 
N-Eval (NS): Evaluate Start (in case hex) 
For I=S To S+N Step 8: Loop round memory requested 
Q$-4: Set for correct printing 
Print ^I;: Print address of lst byte hex 
B$z""; Initialise ASCII store 

For J=Ø To 7: Loop round each byte on line 


R-I?J: Get contents of byte 
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Print contents in hex 


Q$-3: 

R=R+ (R<32 OR R>126) * (R-46) : 
BS-BS4ChrS (R) : 

Next J: 

Print BS: 

next I$ 

@3-10 

IM 


Example output: 


The output shown below is a display of the start of the function key buffer. 
in this article was the first function key program to run after a cold 


the program 


Set for correct printing 
Use "." (46) if out of range 


. Add into ASCII store 


Print ASCII at end of line 


Reset printing to normal 


start, you can see it stored at the beginning of the buffer: 


START, >&BØØ B30 4E 3D 45 56 2E 4E 24 3A N=EV.N$: 
2100 B38 46 2E 49 3D 53 20 54 4F F.I-S TO 
BØØ AB AB AB AB AB AB AB AB  ....555e B49 53 2B 4E 20 53 2E 38 3A SIN 5.8: 
B08 19 AB AB AB AB AB AB AB soe0000000 B48 49 25 3D 34 3A 50 2E 7E @%=4:P.~ 
B19 AB 4D AF 2E 37 3A 49 2E .MO.7:1. B58 49 3B 3A 42 24 3D 22 20 I;:BS$-" 
B18 22 53 54 41 52 54 2C 29 "START, B58 20 22 3A 46 2E 4A 3D 30 ":F.J-0 
B20 3E 22 53 24 2C 4E 24 3A d>"S$,NS: Bog 54 4F 37 3A 52 3D 49 3F TO7:R-I? 

B28 53 3D 45 56 2E 53 24 3A S-EV.S$: 


re:MAGIC EEL 
Dear Sirs, 
I recently bought a copy of GAMES 
4 "MAGIC EEL'. It does not run on my 
machine. I have a Model B which 
appears to be fitted with the 1.0 
O.S., and the switch-on message 
includes the message 'DFS'. After 
some days of worry and 
experimentation I can now load 
cassettes by using the *TAPE command. 
Could this affect the  'MAGIC  EEL' 
program? 


BEEBUG MAG 


The program appears to load 
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a 


perfectly and presents the page of 


instructions. However, when the 
SPACE bar is pressed the machine 
reverts to command mode. Any 


suggestions ? 
R.A. Walker. 

[Ed: The loading of 'MAGIC EEL' using 
*TAPE on a disc system does NOT 
affect it adversely. However, the 
program requires graphics MODE 1 to 
run, and the above effect occurs 
because you have not reset PAGE to 
&EØØ. Please see BEEBUG vol.] no.7 
p.27 (PAGE change hint) and BEEBUG 
vol.] no.8 p.38 (Points Arising)]. 
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B This program simulates the dice game "YAHTZEE" 


(r), in which five dice are thrown and a score is 
given for their value, depending on the category in 
which the player puts it. The game requires a fair 
amount of skill and judgement, although luck does 
play its part. The program uses coloured teletext 
graphics in an exemplary way. 


You are allowed a maximum of three re-throws on 
any number of dice, and then you must place the 
result in one of the categories listed. 


Full instructions can be listed when the program 
is first run (the instructions appear in a novel 
way), and a high score is kept. If you are 
unfamiliar with the game, do not be daunted by the 
rules, these are soon picked up. We found this game 
good fun to play. 


[NOTE: when playing, if you get 5 numbers of the 
Same value eg 66666 this CANNOT be put down as a 
full house.] 


a" ... , PROCEDURES 

init Initialises variables, clears screen. 
Screen Prints the title and categories. 

roll Throws dice and allows two more goes, 


calls FNchoice, 
and awards points. 

FNtest I (number%) Checks if dice (1-5)=number% and 
returns value of quantity*number$, tests 
for categories 1-6. 

FNtestll Sorts dice into numerical order and 
checks if either 12345 or 23456 exist. 

FNtest1Ø Checks if dice equal 1234, 2345 or 3456, 
other dice can be any value. 

FNtest9 Checks for a 'Full House' (doesn't allow 
five of a kind). 

FNtest7(number$) Tests for 3,4, or 5 of a kind. 


calls test subroutine, 


FNadd Returns the total value of the dice. 
sort 'Bubble' sorts the dice into numerical 
order. 


throw(dice$) Assigns new value to dice chosen. 


clear Clears the screen. 

bonus If categories 1-6 add up to more than 
62, then a bonus of 30 is added to the 
Scoresheet. 

choice Main part. Asks if another roll is 
required, which category to score, and 
returns value of category. 

dice Prints dice in double height characters. 


end Prints total score and best score, 
wait 
read (N) 


Waits for the 'space' bar to be pressed. 
Reads N lots of data, and prints it at 
Slow speed for the instructions. 
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18 REM"FIVE DICE by Brian Kilby 
20 MODE7 
38 ON ERROR GOTO 17600 
40 B$-RND(-TIME):B$-0 
56 IF FNyes("DO YOU WANT THE RULES ?",152,5,12)TH 
EN PROCread (5) : PROCread (19) 
60 PROCinit 
70 PROCscreen 
80 REPEAT 
99 PROCroll 
1908 UNTIL cat%=13 
118 PROCend 
126 IF FNyes("New game ?",130,27,22) THEN CLEAR:GO 


130 CLS:END 

148 REM"INITIALISE 

159 DEF PROCinit 

160 DIM dice% (5) ,cat%(13) 

170 VDU23;8202;90;0;0; 

180 VDU15,12 

198 cat%=Ø:call%=Ø:bonus%=Ø 

200 ENDPROC 

218 REM"SCREEN 

220 DEF PROCscreen 

230 VDU12,13Ø,157,1Ø,13,13Ø,157,131,141,1Ø,13,13Ø, 
157,131,141,10,13,130,157,132,31,38,0,156,8,10,156,8 
:10,156,8,10,156 

240 FORI3-1TO2: PRINTTAB (15,18) "FIVE DICE":NEXT 

250 IF B$>Ø THEN PRINTTAB(15,3): Best  ";B$ 

260 PRINTTAB (9, 4) CHRS1 34; "VALUE" TAB (15) "CATEGORY"T 
AB(32) "POINTS"! l 

276 FORI$-1TO6:PRINT"dice*";I$;CHRS$133;TAB(15);I$; 
CHR$1 35 : NEXT 

280 PRINTTAB (18,6) "ONES" 

290 PRINTTAB(18,7) "TWOS" 

300 PRINTTAB(18,8)"THREES" 

319 PRINTTAB(18,9) "FOURS" 

320 PRINTTAB(18,10) "FIVES" 

330 PRINTTAB(18,11) "SIXES" 

348 PRINTCHRS134;"If 1-6 total over 62 then"CHRS12 
9: "BONUS" ` 

35Ø FORI$-3TO4:PRINT"add dice"TAB(18);I$;" OF A KI 
ND" : NEXT 

36Ø PRINT; 25TAB (18) "FULL HOUSE" 

37Ø PRINT; 3ØTAB (18) "4 STRAIGHT" 

388 PRINT; 40TAB(18)"5 STRAIGHT" 

390 PRINT: 5@TAB(18) "FIVE DICE" 

400 PRINT "add dice" TAB(18) "CHANCE" 

416 PRINTTAB (26) ; CHR$129; " TOTAL" 

420 FORI$-13TO19:PRINTTAB (14, I$) CHR$133; I$-6; CHRS$1 
35:NEXT 

438 PRINTTAB(0,21): "No. ";CHRS$139;"] 


449 FORI$=5T02Ø:VDU31 ,32,1%,131 : NEXT 
459 FORI$-23TO24:VDU31,0,1$,141:NEXT 


460 ENDPROC 

470 REM"MAIN SECTION 

480 DEF PROCroll 

499 g0%=Ø 

500 PROCthrow("12345") 

510 Q-FNchoice 

528 ON Q GOSUB 560,560,560, 560,560,560,600,600,619 
620,630, 640,650 

530 gt%=gt%+pointss 

540 PRINTTAB (35,510 DIV74Q) ;points$ 

559 ENDPROC 

560 points$-FNtest](Q):call$-call&41 

576 bonus%=bonus$+points% 

580 IF call$-6 THEN PROCbonus 

599 RETURN 

600 points9-ABS (FNtest7 (0-4) *FNadd) : RETURN 

618 points$-FNtest9:RETURN 

620 points$=FNtest19:RETURN 
| 630 points%=FNtest 1] : RETURN 


2 3 4 5" 
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649 points%=ABS (FNtest7 (0-7) *5@) : RETURN 

650 points3-FNadd : RETURN 

660 REM"CAT. TESTS 

670 REM"ONES to SIXES 

689 DEF FNtest] (numbers) 

690 LOCAL total$,I$ 

700 total$-90 

718 FORIS=1TO5:total%=total%+(dice% (I$)-number$):N 
EXT 

720 =ABS(total%)*number% 

736 REM"5 STRAIGHT 

740 DEF FNtestl] 

756 LOCAL test$,I$ 

760 PROCsort 

770 tests="" 

786 FORI$=1TOS:test$=test$+STR$ (dice$ (I$)) : NEXT 

796 IF test$="12345"0R test$z"23456"THEN -40 ELSE 
=Ø 

8ØØ REM"4 STRAIGHT 

81Ø DEF FNtest1Ø 

826 IF (FNtestl(3)>=3 AND FNtest1 (4) >=4) AND ((FNtes 
t1(2)>=2 AND(FNtestl(1)>=1 OR FNtest] (5) >=5) ) OR(FNte 
$t1(5)>=5 AND FNtestl(6)>=6)) THEN #30 ELSE =Ø 

830 REM"FULL HOUSE 

840 DEF FNtest9 

859 PROCsort 

860 LOCAL flags 

870 flag3- ( (dices (1) =dice% (2) )AND(dices (2) =dices (3 
)) JAND (dices (4) =dice (5) ) OR ( (dices (1) =dice% (2) ) AND(d 
ice’ (3) =dice% (4) ) AND (dice% (4) -dice$ (5))) 

880 IF flag%<>FNtest7(5) THEN #25 ELSE =ø 

899 REM"3-4-5 OF A KIND 

966 DEF FNtest7 (numbers) 

910 LOCAL I$,X$,total$ 

920 FORIS=1T06 

938 total%=Ø 

949 FORX%=1T05 

950 IF dice%(X%)=I% THEN total%=total%+1 

960 NEXT 

970 IF total%>=number% THEN I%=7:=TRUE 

980 NEXT: FALSE 

998 REM"ADD DICE 

1099 DEF FNadd 

1019 LOCAL I$,total$ 


1920 FORI%=1TO5:total%=total$+dice% (15) :NEXT:=total 3 


1039 REM"SORT 

1048 DEF PROCsort 

1959 LOCAL Y$,2$,T$ 

1060 FORY$-]!TO4 

1076 FORZ$=Y%+1T0O5 

1080 IF dice%(Y%)<=dice%(Z%) THEN 1090 ELSE T$-dice$ 
(Y%) :dice$ (Y%) =dice% (23) :dice$ (22$) -T$ 

1096 NEXT:NEXT:ENDPROC 

1108 REM"RE-THROW DICE 

1119 DEF PROCthrow(dice$) 

1128 LOCAL I$ 

1139 FORI3-1TO LEN(dice$) 

1148 flag$-sVAL(MIDS(dice$,I$,1)):IF £flag%>5 THEN fl 
ag%=9: 1$=6 : ENDPROC 

1158 dices (flag%)=RND(6) 

1169 NEXT 

1178 PROCdice:ENDPROC 

1186 REM"CLEAR MESSAGE 

1198 DEF PROCClear 

1296 PRINTTAB (27,22) ;CHR$133;SPC(11) 

1218 PRINTTAB (28,23) SPC(14€) 

1220 ENDPROC 

1238 REM" BONUS 

1248 DEF PROCbonus 


1258 IF bonus%>62 THEN bonus%=3@:gt%=gt%+39 ELSE bo 


nus$-0 
1268 PRINTTAB (35,12) ;bonus% 
1278 ENDPROC 
12880 REM"YES OR NO 
1299 DEF FNyes(Q$,col%,X%,Y%) 
1388 LOCAL reply$,col% 
1319 PRINTTAB(X$,Y$) CHRS (col$) ;Q$; 
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1339 PROCclear 

1340 =(reply$="Y") 

1356 REM"CHOICES 

1360 DEF FNchoice 

1376 REPEAT:go$-go&-] 

1388 SOUND1,-12,200,5 

1398 IF NOT FNyes("ROLL (Y/N)?",135,27,22) THEN go% 
=2:GOTO 1490 

1408 REPEAT 

1419 REPEAT 

1420 SOUND1,-1Ø,15Ø,5 

1430 PRINTTAB (27,22) CHR$13Ø; "WHICH DICE" 

1440 INPUTTAB (28,23) QS 

1450 PROCclear 

1460 UNTIL QS$S>CHR$47 AND Q$<CHRS$54 

14780 PROCthrow(Q$) 

1480 UNTIL flag$ 

1498 UNTIL go$-2 

1596 REPEAT 

1510 REPEAT 

1529 SOUND!,-10,100,5 

1539 PRINTTAB (27,22) CHR$133; "CATEGORY?" 

1549 INPUTTAB (28,23) ""Q 

1550 PROCClear 

15680 UNTIL Q»9 AND Q<14 

1579 UNTIL cat$(Q)-0 

1580 cat%(Q)=1:cat%=cat%+1l:=0Q 

1590 REM"PRINT DICE 

1600 DEF PROCdice 

1618 FORflash$-152TO135STEP-17 

1629 FORIS=1T02: PRINTTAB(4,22+1%) ; CHR$ (flash%) ; : FOR 
N$-1TO5: PRINT ;dice$ (N$) SPC2; : NEXT: PRINTCHRS 140; : NEXT 

1630 IF flash$-152 THEN TIME=Ø:REPEATUNTIL TIME>5Ø 

1640 NEXT: ENDPROC 

1650 REM"END RESULT 

1660 DEF PROCend 

1670 PRINTTAB (34,29) ; CHR$136;gt$; 

1680 IF gt%>B% THEN B$-gt$:PRINTTAB(15,3);"Best "; 
BS 

1698 ENDPROC 

1780 REM" ERROR TRAP 

1718 CLS 

1726 IF ERR<>17 THEN REPORT:PRINT" in line ":ERL 

173@ REM"CURSOR ON { SIZE 

1740 VDU23,Ø,1Ø,112,Ø;Ø;Ø; 

1750 END 

1769 REM" RULES 

1776 REM"implanted control chr.'s 

1789 DATA"In the following game the object is to s 
core as high as possible,by skillfully placing the r 
esults obtained from the dice, into the various ca 
tegories." 

1790 DATA"There areFIVE DICE." 

18900 DATA"You are allowed a maximum of three goes f 
or each category (although you can stopafter the fir 
st or second roll)" 

1819 DATA"You may re-throw ANY or ALL the dice as y 
ou see fit,by typing out the relevant dice numbers 
(1 to 5 in any order)" 

1828 DATA"When you are satisfied with the results ( 
or after the third throw which ever is first) you MU 
ST place them in one of thel3 categories." 

1839 DATA"CATEGORIES:" 

1840 DATA"ONES to SIXES :every dice that has thes 
ame value as the cat. chosen is added together eg.1 
1223=4(2+2) in Twos" 


1859 DATA"3 OF A KIND :any 3 dice the same s 
core value of all 5 dice" 
1860 DATA"4 OF A KIND :any 4 dice the same 5 


core value of all 5 dice" 

1870 DATA"FULL HOUSE :3 of one number AND 2 o 
f another scores 25 points" 

1880 DATA"4 STRAIGHT :either 1234 or 2345 or 3 
456 score 30 points (any order)" 

1899 DATA"S STRAIGHT :either 12345 or 23456 s 
cores 48 points (any order)" 

1900 DATA"FIVE DICE :all the same ? score 509p 
oints" 


1919 DAT "CHANCE :anything goes here so s 
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2088 TIME=Ø: | 
1928 DATA"When asked 'CATEGORY?'enter the NUMBER o PE ATT ENE 


2Ø9Ø PRINT:NEXT 


f the category (colour coded magenta)" -. 2180 PROCwait 
1930 REM"WATT 2110 ENDPROC ka 
1949 DEF PROCwait [09009005 009506 0,996,599 90606,, ,9990 , 9990. 9 89996 9 96 Mot oS NAN ANNN NITA 
aw a *99906002020229299009» ces d aratata eto etat AAR, * DK DK DE arate ata a atone ae eae” e o a & à à 4 * * ^^ a^ 
EG EAT en a a ##NOTE - In the game of FIVE-DICE some of the 
1979 CLS: ENDPROC instructions (held in DATA statements) are in fact 
1986 REM"SLOW PRINTOUT colour coded teletext characters. The lines 
1996 DEF PROCread (N) concerned are 1799, and 1830-1926. In the original 
2000 LOCAL T,letter ,word,word$ program they are mostly GREEN with the odd one in 
2018 VDU12,10 l MAGENTA (see listing). If you would like to keep 
2028 FORWord=1 TON this feature or use different coloured teletext 
2036 READ words ` characters, then do one of the following: If you 
2949 FORletter=| TO LEN(word$) have 0.1 OS see the article in BEEBUG vi no4 p7; if 
2059 PRINTMIDS(word$,letter,1); you have a series 1 OS then see the hint in this 
2060 TIME=Ø:REPEAT UNTIL TIME>8 tool 


2070 NEXT E "lego toto) eot eserore acere osason eio, OX DOOO0O0 - 


PACK article (BEEBUG v.] no.8 p.12) 
There is a problem with the Compacter Program published in the last issue. See 
the article 'Compacter revisited' in this issue, for an update on this program. 


OSBYTE hint (BEEBUG v.] no.8 p.41) 
In the last issue we gave details of the useful OSBYTE 135 to find out what 
Screen mode you were in. Contrary to what we said, this DOES work on O.S 6.1. 


BAD PROGRAM article (BEEBUG v.1 no.8 p.4) 
Under the heading "THE PROGRAM' all references to line numbers in the SECOND 
paragraph must be incremented by 10, (ie. "line 110' should read "line 126"). 


BREAKOUT 

For improved colour sequences on Breakout change line 20 to 20 VDU 19,1,1,0,0,0 
When using the 16k version of the game do NOT delete line 1338 (contrary to 
instructions). .Note this only affects error handling. | 


COLOURED LISTINGS (TELETEXT) | 

In issue 4 of BEEBUG (p.7) there is an article on teletext characters for 
the (then) 9.1 OS. ma 1.0 OS coloured or flashing characters can be obtained in 
mode 7 merely by using the SHIFT key in conjunction with the red user keys (ie. by 
pressing SHIFT and a user key simultaneously). This can be used to good effect in 
the documenting of programs. | 


MOVING THE GRAPHICS ORIGIN 

There is a built in command to shift the graphics origin on the Beeb. After 
executing VDU 29,X;Y; all PLOTs and DRAWs will be shifted by the amount X,Y. This 
can be extremely useful, and we are grateful to Paul Livingstone for this one. 
[We used this command in the very first issue of BEEBUG in the "3-D Noughts & 
Crosses" program in line 1770, but never included it as a "hint & tip'. Ed.] 


DISC-CASSETTE BREAK 

If you have a disc filing system (DFS) ROM fitted, then it is well known 
that pressing CTRL/BREAK (ie. pressing CTRL and BREAK simultaneously) will cause a 
cold system restart to the DFS. Did you know that pressing T/BREAK or TAB/BREAK will 
ue a restart to the cassette filing system (CFS)? Thanks to K.Simpson for this 

int. 

It is true that pressing TAB/BREAK has the same effect as a CFS restart, 

but the value of PAGE remains set for the DFS, ie. at s1999. 
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Qm O? BEEBMAZE (32k) 
PIT? nå by R R Hull 
Na; y u 


It makes a change to have a program that doesn't . 56 points for leaving via the entrance 
involve death and destruction. This game retains 190 points for requesting a map 
some of the excitement of arcade type games, but You GAIN 200 points for passing through the exit. 


gives you time for thought between each move, and 
can be quite addictive. 


The program creates a random maze, and you have 
to find your way through to the exit. You are 
awarded a score depending on several factors. The 
interest comes because the screen displays the view 
that you would see if you were actually within the 
maze itself. The graphics are good, but you need 
both a good memory and sense of direction to get 
through the maze in record time. 


Finally if you want to change the range of sizes 

of the generated mazes study line:- 
1099 line=29:width=RND (4) H4 :height#RND (5) +7 

You need to alter 'width' and 'height'. For example 
as it stands it will generate random widths from 5 
to 8. Alter it to width=RND(2)+8 and it will 
generate widths from 9 to 10 only. The same applies 
to height. (Keep the number in brackets between 2 
and 3). You. can, of course, remove the random 


When you get hopelessly lost, which you will to function altogether. 
begin with, you can ask for a plan view of the maze 
(you lose points though) so that you can find out Please note that while this program works very 
precisely where you are. well, and is good graphically, it does employ some 
rather unusual techniques - such as the 'pokes' and 
You simply control your movements with LRFAM use of HIMEM at line 1140 etc. We would not 
which are turn left, right, move forwards, about normally advise the use of these in such a program 
turn, and request map. because they obscure understanding of the program 
operation, and prevent it from working across the 
There are two versions of the game, one timed and Tube. 
the other untimed. In the timed version you start l , , 
with a certain amount of points, and lose them as Please note, if you are using a disc system that 
follows: - you will sometimes run out of memory. You could 
| point per elapsed second either remove the instruction lines, or use the 
2 points per move ‘Move down! routine published elsewhere in this 


19 points for hitting a wall issue, 


9 9 9 0 0 0 9 0 d € € 9 ^ ow 9 9 6$ € e * 0 0 0 * O € 0 0 9 € d € 0 9 O S O G O O DO 9 O 9 9 O . 
SN SAP SOGO € 0 e 0 & 9 9 O O 9 O C O DOO! DOOOOOOGOOOOO 
***7006006«499 69*0026060€9€020900992990 a Ng py a a ata TO eo 


1Ø REM***  BEEBMAZE *** i 210 PRINTDS$"-2 ie. Lap move (or Hoa 


20 REM*** BY R.R. HULL *** 220 PRINTDS"-1Ø points for hitting a wall" 
30 REM*** 1/9/82 kkk 230 PRINTDS"-5@ for trying to leave via the way in" 
49 MODE 7:?&FEØØ=1Ø:?&FEØ1|=32 240 PRINTDS"-1ØØ for asking for a map." 
56 PROCtitle 250 PRINTCHR$129"+2ØØ for escaping via the exit." 
60 REM*******INSTRUCTIONS** 260 PRINT'CHRS132CHRS136"DO YOU WANT TIMED(T) OR UN 
70 DS=CHR$134:PRINT'DS" The computer draws a 3 TIMED (U) ?" 

D maze of" 270 AS-GETS:IF AS<>"T" AND AS<>"t" AND AS<>"U" AND 

^ 86 PRINTDS"random size. You start just inside it"  A$«»"u" THEN 279 

96 PRINTDS"with the entrance directly behind you." 280 CLS:IF AS="T" THEN time$-1 ELSE time$-0 

100 PRINTDS" Your objective is to find your way" 299 PROCtitle 

119 PRINTDS"through the maze and out via the exit." 309 PRINT''CHRS134" You move around the maze using 


120 PRINTDS" | You move in the direction in which"  ;-" 
136 PRINTDS"you are facing. You have a choice of" 316 PRINT''TAB(7)"Key - F to move forward" 


149 PRINTDS"two games, timed(TI) with a score(SC)" 320 PRINTTAB(7)" — À to turn about" 

150 PRINTDS"and, untimed & unscored. In the timed" 330 PRINTTAB(7)" - L to turn left" 

160 PRINTD$"version you start with a number of" 349 PRINTTAB(7) " - R to turn right" 

178 PRINTDS"points, which depend on the maze size." 356 PRINT'TAB(3)CHRS129"In emergencies only" CHRS1 35 
186 PRINTDS" Points are lost or won as shown:-" "— M for map." 

198 DS-CHRS1 31 l 360 PRINT'TAB(6)CHRS133CHRS136" PRESS SPACE BAR TO S 


200 PRINTD$"-] point per elapsed second" TART" 
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370 AS-GETS:IF ASO" " THEN 370 

386 REM*MODE CHANGE/MAP GRAPHICS 

390 MODE 5:?&FEQG=10:?&FE@1=32 

490 VDU 23,224,0,24,60,126,24,24,24,0 

418 VDU 23,225,0,8,12,126,126,12,8,0 

420 VDU 23,226,0,24,24,24,126,60,24,0 

430 VDU 23,227,0,16,48,126,126,48,16,0 

440 VDU 23,228,255,255,255,255,255,255,255,255 

450 VDU 19,1,6;0;19,3,2;9; 

460 ON ERROR GOTO 2250 

479 COLOUR !:PRINTTAB(4,14) "PLEASE WAIT" 

489 PROCinit 

490 REM*MAIN PROG/MOVE/TURN* 

500 DEF PROCkey 

510 *FX11,Ø 

520 *FX15,Ø 

530 PRINTTAB(Ø,Ø)" s 

548 COLOUR 1:PRINTTAB(Ø,Ø) "ACTION?" 

550 AS=INKEYS (Ø) :PROCtime:IF AS=""THEN 559 

560 N%=P%:0%=? (P%) :IF AS="F" OR AS="£" THEN N%=P%+d 
ir (M%) 

576 COLOUR 3:AD%=AD%+2 

580 IF N%=P% THEN 630 

590 IF P%=out% AND M$-3 PRINTTAB(0,0) "HURRAH - YOU 
ESCAPE!" :AD%=AD%-2ØØ: PROCt ime : PROCtune : PROClongdelay: 
PROCagain 

600 IF P%=in% AND M$-1 PRINTTAB(Ø,Ø) "WAY IN - NO EX 
IT" :AD%=AD%+5Ø : SOUND] ,-15,2Ø,2Øø:GOTO 639 

61Ø IF Q%-D%*INT(Q%/D%)<>Ø THEN P%=N%:PRINTTAB(Ø,Ø) 
"YOU MOVE" :GOTO 71Ø 

620 PRINTTAB(Ø,Ø) "YOU HIT A WALL" : AD$&-AD$-- 10: SOUNDI 
;715,2ØØ,3 

63Ø R%=M% 

640 IF A$-"R" OR AS="r" THEN R$=M%+1:C$="RIGHT" 

650 IF AS="A" OR AS="a" THEN R$=M%+2:C$="ABOUT" 

660 IF AS="L" OR AS="1" THEN R$%=M%+3:C$="LEFT" 

670 IF AS="M" OR A$z"m" THEN AD$-AD$-100:PROCmap 

680 IF R$-M$ THEN 710 

690 IF R%>3 THEN R%=R%-4*INT(R%/4) 

700 M%=R%:PRINTTAB(Ø,Ø) "YOU TURN "CS 

719 D%=wall(M%) :0%=?(P%) : Y$=P%:Left%=M%-1:right%=M% 


+1 

720 IF left%<@ THEN left$-3 

730 IF right%>3 THEN right%=Ø 
740 PROCcell 

750 PROCdelay 

760 PROCthree d 

770 PROCkey 

780 ENDPROC 

7980 REM***INSPECT CELL WALLS*** 
808 DEF PROCcell 

810 LOCAL L,R 

820 L=wall (left%) :R=wall (right%) 
830 l1wall=0%-L*INT(Q%/L) 

849 rwall=Q%—R* INT (Q%/R) 

859 ewall=0%-D%*INT(Q%/D%) 

860 ENDPROC 

870 REM**MOVE/LOOK AT NEXT CELL 
880 DEF PROCnextcell 
890 Y%=Y%+dir (M3) :Q%=? (Y3) 

900 ENDPROC 

919 REM**PLAN MAZE-IN & OUT*** 
920 DEF PROCmakemaze 

930 LOCAL A,C,D,E,I,M,J,R,T,V 
940 C=Ø 

95g P%=P%+1:IF P%>E% THEN P%=S% 
960 A-RND(4)-1:D-0 

978 A-A-T1:D-D-1:1F D3 THEN 959 
980 IF A>3 THEN A=Ø 

990 M%=P%+dir (A) :IF M$«S$ OR M%>E% THEN 979 
1800 V-?(P$):Mz?(M$):IF C>Ø AND V=21Ø THEN P%=M%:GOT 

O 960 


1019 T=M%-S%:IF(V=M OR M<21Ø)AND C>Ø THEN 976 

1028 E=T-width*INT(T/width) :IF(E=Ø AND dir(A)-1)OR(E 
=G% AND dir (A)=-1) :GOTO 979 

1Ø3Ø R=INT(15/wall(A)) : V=V/wall (A) 

1040 P%=M%:C=C+1:IF C«H$ THEN 969 

1950 Jz2?(out$£):J-J/wall(3):?0out$2J:I-?(in$):I-I/Wall 


:2P$-V:M-M/R: ?2M$-M 


(1) :2ingsI:M&-in$:P$-M$:M$-3:N$-P3: TIME-0: GOTO--710 
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~ 1960 ENDPROC 


19780 REM*VARIABLES/MAZE SIZE** 

1880 DEF PROCinit 

1998 line=2Ø:width=RND(4)+4: neun RND (61+7 | 

1196 DIM wall (3) ,dir (3) ,X(18) ,Y(1Ø) 

1118 wall (0) =5:wall (1) =7:wall (2) =3:wall (3) =2 

1128 dir (Ø)=l:dir(1)=width: dir (2)2-1 :dir(3)z-width 
1139 H&=width*height-1:G%=width-1 

1140 HIMEM=2242Ø:S%=HIMEM:E$=S%+H%:FOR A=5% TO E$:?À 
=219:NEXT: P$=S$+RND (H%+1) 

1158 out%=S%+ (RND (width) -1) : in$=E%- (RND (width) -1) :AD 
$-0 

1160 PROCmakemaze 

1178 ENDPROC 

1180 REM***MAP ROUTINE****** 

1199 DEF PROGnap 

1206 CLS:LOCAL A,B,C,D,F,G,H,I,L,M,S,map,cell 

1219 A=31864:B=A:S=S%: F=S3+G% 

1228 FOR map=S TO F:FOR cell=Ø TO 3:C=?(map) :C=C-wal 
1 (cell) *INT (C/wall (cell)) 

1239 L-1:IF cells] OR cell=3 THEN L=line 

1249 IF cell>| THEN L--L 

1259 M=line/L:H=A+L:G=H+M: I=H-M 

1260 IF map=P% PROCarrow(A) 

1270 IF C=@ PROCwall (G) :G=H: PROCwall (G) :G=I: PROCwal1. 
(G) 

12880 NEXT:A=A+2: NEXT: S=S+width:F=F+width:A=B+(2*line 
) :B=A 

1299 IF F«-E$ THEN 1220 

1309 PROCdelay 

1319 COLOUR I:PRINTTAB(0,9)"READY?(Y)":ASzINKEYS (0) : 
PROCtime:IF AS«»"Y" AND AS$<>"y" THEN 1319 

1329 ENDPROC 

1330 REM***DRAW MAP WALLS**** 

1349 DEF PROCwa11 (G) 

1359 COLOUR 2 

1369 LOCAL X,Y 

1378 Y-INT ( (G-3188@) /line) 

1389 X-G-31802-line“Y 

1398 PRINTTAB (X, Y) ; CHR$228 

1400 SOUNDI,-1Ø,X*Y,1 

1419 PROCtime 

1420 ENDPROC 

1430 REM*CHOOSE & DRAW ARROW* 

1448 DEF PROCarrow(A) 

1459 COLOUR 3 

1460 LOCAL D,X,Y 

1470 IF R%=Ø D=225 

1489 IF R$-1 D=226 

1490 IF R%=2 D=227 

1500 IF R%=3 D=224 

1519 Y=INT((A-318ØØ) /line) 

1520 X-A-31802-1ine*Y 

1530 PRINTTAB(X,Y) :CHRSD 

1540 ENDPROC 

1550 REM***CHANGE CELL DEPTH* 

1560 DEF PROCthree d 

1578 CLS 

1580 X=18Ø:XX=112Ø:Y=1ØØØ:YY=1Ø 

1590 CWz1.4:CHz1.4:X12158:Y12z158 

1600 depth=Ø 

1618 depth=depth+1 

1620 X=X+X1:XX=XX-X1 : Yey-Y1: YY=YY+Y1 

1630 X1=X1/CW: Y1=Y1/CH 

1648 PROCdraw maze 

165@ IF Y%=in% AND M%=1 OR Y%=out% AND M%=3 PROCkey 

1669 IF ewall=@ PROCkey 

1678 PROCnextcell 

1688 PROCcell 

1690 IF depth«5 GOTO 1610 

17800 PROCkey 


1718 ENDPROC 
1720 REM***DRAW 3-D MAZE#x#ex 


1738 DEF PROCdraw maze 

1748 PROCtime ` 

1750 GCOLG, 2 

1760 REM***DRAW VERTICALS**** 

1778 MOVE X,Y:DRAW X,YY:MOVE XX,Y:DRAW XX,YY 
1789 REM*CHANGE X,Y FOR CELL? 


-— 1790 X2=X-X1*ON:X3=XX+X1*CW 
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1806 Y2-Y-Yl*CH:Y3-YY-Y]l*CH l 
1819 REM***DRAW HORIZONTALS** 
ieee IF ewall=@ MOVE X,Y:DRAW XX,Y:MOVE X,YY:DRAW XX 


1836 REM*DRAW LEFT WALL/WING* Na 

1849 MOVE X,Y:IF lwall<>@ DRAW X2,Y ELSE DRAW X2,Y2 
1850 MOVE X,YY:IF lwall<>@ DRAW X2,YY ELSE DRAW X2,Y 
3 
1860 REM*DRAW RIGHT WALL/WING 
1879 MOVE XX,Y:IF rwall<>Ø DRAW X3,Y ELSE DRAW X3,Y2 
1889 MOVE XX,YY:IF rwall<>@ DRAW X3,YY ELSE DRAW X3, 
Y3 

1898 ENDPROC 

1990 REM*******ANOTHER GAME** 

1918 DEF PROCagain 

1920 CLS:COLOUR 3:PRINTTAB(0,13) "LIKE TO SEE MAP NOW 
?' 

1930 AS-GETS:IF A$<>"Y" AND A$O"y" AND A$<>"N" AND 
AS<>"n" THEN 1939 

1940 IF A$="y" OR A$="y" time$-0:PROOnap " 
. 1950 CLS:COLOUR 1:PRINTTAB(1,13) "WOULD YOU LIKE TO"T 
AB(1,15)"TRY ANOTHER MAZE?" :AS-GETS:IF ASO"Y" ASO"y 
" AND A$<>"N" AND A$<>"n" THEN 1950 

1960 IF A$="Y" OR A$s"y" THEN RUN 

1970 GOTO 2250 

1980 ENDPROC 

199G REM*eeekeee END TUNE ee eee 

2000 DEF PROCtune 

2018 FOR I=Ø TO 1:SOUND1,-15,97,19:SOUND1 ,-15,105,16 
: SOUND1 ,-15,89,10:SOUND1 ,-15,41,19:SOUND1 ,-15,69,29:N 
EXT 

2929 ENDPROC 


2030 REM*******sHORT DELAY*** 
2040 DEF PROCdelay 

2050 FOR I-1 TO 1ØØØ:NEXT 
2060 ENDPROC 

2070 REM*******LONG DELAY**** 

2080 DEF PROClongdelay 

2090 FOR I=] TO 2ØØØØ:NEXT 

2108 ENDPROC 

2119 REM*******TIME-SCORE*'*** 

2129 DEF PROCtime 

213G IF time$-0 ENDPROC 

2148 LOCAL TI,SC 

2150 TI=TIME:TI=INT(TI/1ØØ)-(2ØØ+H%) : TIZABS (TI) 

2160 SC=INT(2ØØ+(1.5*H%) -AD%+TI) 

2178 COLOUR 1:IF TI<=@ COLOUR 3:PRINTTAB (6,15) "TIME 
UP" :SOUND9,-15, 185, 30: SOUND] ,-15, 185, 30: PROClongdela 
y:PROCagain | 

2180 PRINTTAB(9,31)"TI-";TI-];" 
C;" Wg i 

2196 ENDPROC E 

2200 REM? tet ee eee TT TL Bae yy 
2219 DEF PROCtitle 

2220 PRINT:FOR I=@ TO 1:PRINTTAB (8) CHRS$141CHR$157CHR 
$132"/BEEBMAZ E "CHR$156:NEXT 

2230 ENDPROC 

2240 REM**MODE CHANGE/ENDING* 

2250 *FX11,7Ø 

2262 MODE 7 

2270 PROCtitle 

2280 FOR I=Ø TO 1:PRINTTAB(7, 11-41) CHRS1 41CHRS1 57CHRS 
136CHRS129 "GOODBYE FOR NOW  "CHRS156:NEXT: END z 


"«TAB(1 1 ;31)"SCs";S 


ord Processor 


This is a highly 


sophisticated word processing package for the BBC Micro, and 


BEEBUG Discount 134 SAVE £5 


compares very favourably with those currently available on other microcomputers. It 


makes 


full use of the BBC micro's advanced facilities, and text is typed and edited 


in the 40 column Teletext mode, saving memory, thus allowing it to be used with more 
or less any TV. See the software review in this issue for further details. 


Wordwise is supplied in EPROM with simple fitting instructions, a 
cassette. Wordwise must be used in conjunction with a series 1 


and a sample data 
. operating system. 


full manual, 


The normal price of Wordwise is £39+VAT=£44.85(plus p&p) 
To BEEBUG members it is £34*VAT-£39.10 plus 90p post & packing=£40. 


BEEBUG MAG 


Make cheques payable to BEEBUG and send to: 
Wordwise Offer, PO Box 50, St Albans, Herts, ALI 2AR. 
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